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have often found myself fumbling through my printer and 
OS-9 manuals looking for control codes to configure the 
printer or a window. Memorizing many codes seemed almost 
impossible and procedure files are too clumsy and limiting for 
this purpose. 



£ 






Sendcode is a utility I wrote to eliminate 
the tedious chore of looking up these con- 
trol codes. Instead, you use words to tell 
Sendcode what function you want, and it 
looks up the proper control codes to send. 

Sendcode brings user-friendly opera- 
tion to OS-9, especially with printers and 
other devices, by replacing numbers with 
simple names. When you need to send 
special control codes to a device, such as a 
printer, you probably dig out your manuals 
and use OS-9's d1 spl ay command to send 
the codes. For example, if you have a 
DMP-132 and want to turn on the under- 
line function, you would refer to the printer 
manual to determine that the proper con- 
trol code is $F. Then you would enter the 
following command to actually send the 
code: 

display Of > /p 

Sendcode eliminates this hassle by us- 
ing device-specific (one for each device 
you want to use) .code files in which you 
define simple command words for specific 



devices. The .code file is a simple list of 
names you want to use for device func- 
tions, along with the appropriate control - 
code sequences to perform these functions. 
Then you use this command word with: 
Sendcode to actually perform the function, j 
For the DMP-132 underline function above, I 
you might enter something like 

sendcode UndrlnON 

Sendcode looks for the parameter Undrl nON ' 
in the . code file to determine the appropri- ! 
ate codes to send, then sends them. It's that ; 
easy. 

To get started, you first need to enter i 
and compile the sendcode. c source code! 
shown in the listing. (Alternatively, the 
compiled program is on this month's RAIN 
bow on disk as well as in the OS9 Online | 
SIG on Delphi.) 

After compiling the program, you need : 
tocreatea .codefile. Since mostusers will | 
probably use Sendcode to send codes to a 
printer, 1 set the default .code file to 

See Code on Page 17 



c'vc all heard the phrase "all 
work and no play makes Jack a 
dull boy." Whatever the reason, 
it does sometimes help to play a 
bit with the computer so you 
don't feel overcome by work. Darn It. an 
addictive solitaire game written for the 
CoCo 3, is ideal for this purpose. 

In Dam It, six columns of six cards each 
are displayed face up in the upper portion of 
the screen. The rest of the deck ( 1 6 cards) is 
placed face down in the lower-left area, and 
the top card of this deck is turned face up on 
the right. This latter card is the ' 'play' ' pile. 
The object of Dam It is to move all the 
cards from the top portion of the screen to 
the play pile. Legal moves are those in 
which the card to be played has a value 
exactly one higher or lower than the value 



of the face-up card at the top of the play pile. 
The suit of the cards is irrelevant. The card 
values go from Ace (low) to King (high). 
The values don't wrap around; you can't 
play a King on an Ace or an Ace on a King. 
In fact, you can't play any card on a King. 
You can move only the bottom cards from 
each column. To move, use the left and 
right arrows to select the column from 
which you want to play a card and press 
ENTER to move it to the play pile. 

When none of the bottom cards in the 
column can be played, turn the next card on 
the deck face up on the play pile. To do this, 
simply press the space bar. The number of 
cards remaining in the deck is indicated on 
the back of the deck. 

When the deck is empty and no legal 
moves are left, the game is over. The 

See Safari on Page 10 
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LETTERS 



The Right Stuff 

Editor: 

After opening my November 1992 issue 
of THE RAINBOW, 1 found myself spending 
more time than usual reading the articles. 
On reflection, I think the opinions of Tony 
Podraza and the experiences of John 
Donaldson caused me to take a second look. 
Let me complement the rainbow for 
choosing these types of articles. I believe 
these are the kinds of authors needed to 
inspire some of the rest of us readers. 

The blend of program listings, adver- 
tisements, product reviews, help with Del- 
phi and the articles mentioned above was 
about right from my point of view. I do, 
however, suggest one minor change to alert 
the reader of the "Corrections" section. 
Since colors seem to be available for each 
page, the color red would stand out better 
than black for the heading. The size of the 
"Corrections" heading and the placement 
were good following the "Letters to the 
Editor." 

Farrell Kenimer 

2601 W. Conine Drive 

Phoenix, AZ 85029-2510 

Thanks for the kind words, Farrell. We 
also think the two articles you mentioned 
are not only appropriate but needed, and 
we hope to provide similar articles in future 
issues. 

We generally try to fit "Corrections" 
where there is room, then alert readers in 
the "Table of Contents." On the other hand, 
nothing says we can't try to find the extra 
room on a "red" page. 

Needs a Disk Controller 

Editor: 

I need help. After collecting all my hard- 
ware and software for the CoCo 3, 1 have 
discovered I don't have an I/O [disk| con- 
troller! To complicate things, I understand 
it is nearly imopossible to get one at this 
time. Will someone please help me find or 
build one? 

CJ. Ryan 

USCGC Gallatin (WHEC-721) 

FPO, AE 09570-3908 

Looking for EARS 

Editor: 

I'm working on a special setup and need 

help finding EARS, a voice-recognition 

system originally sold by Speech Systems. 

Since that company is no longer marketing 

products in this community, I'm hoping 

one of the "older" Color Computer users 

will have a copy of this hardware/software 

product he might be willing to part with. 

Randy Aalderink 

341 Lincoln Avenue 

Holland. MI 49423-3662 

Trying to Secure a Book 

Editor: 

For the past few months I have been 
searching for a book by the title Security 
Projects for the TRS-80 Color Computer 



and sold by Brown's Enterprises. When I 
wrote to Brown's, my letter was returned 
marked "No Forwarding Address." I've also 
checked through library networks, all to no 
avail. The book isn't even listed in the li- 
brary's master index, Books in Print. How 
can I get a copy of this book? 

Tim Perry 
9724 Whispering Winds 
Indianapolis, IN 46234 

The most current address we have for 
Brown's Enterprises is 119 Skyline Dr. R.H.. 
Granbury, TX 76048. If this lead doesn't 
pan out, perhaps another reader can offer 
some assistance. 

Pico CAD Abandoned 

Editor: 

I regret to announce that I have aban- 
doned the Pico CAD program project 1 started 
began three years ago. I delivered to my 
customers all the program modules except 
the plotter driver and, most importantly, the 
window interface. As delivered, Pico CAD 
remains the most powerful CAD software I 
have seen for the CoCo; but in the last two 
years I have been unable to take the time 
necessary to put the windowing interface on 
it. Because of its primitive condition, I am 
now offering a refund of up lo 50 percent to 
any dissatisfied Pico CAD customers. Inter- 
ested parties may write to me at the address 
below. 

Paul Light 

Gravity Studio 

500 Rolling Hills Place, If 209 

Lancaster, TX 75146 

We' re sorry to hear you've decided to 
drop the project. Still, let us be the first to 
commend you for handling your decision in 
a professional and responsible manner. 

Wants a New Keyboard and LEDs 

Editor: 

Is there a way to attach an IBM-type 
keyboard to my CoCo 3? Also, how can I 
add a power-on LED indicator to the CoCo 
3 and the disk drive so I'll know when 
they're on? 

James Ruth 

128 Seymour Avenue 

Newark, NJ 07108 

Both Owl-Ware and Frank Hogg Labs at 
one time sold an adapter that allows you to 
connect a standard PC keyboard to the 
CoCo. It should be easy to add power indi- 
cators to the CoCo 3 and a disk drive . We ' ve 
forwarded a copy of your letter to Marty 
Goodman: perhaps he'll provide the me- 
chanics in a future issue. 

An Addition to Versabase 

Editor: 

Pastor James Altom added a line to the 
Versabase series of database programs I 
wrote, and I think it really makes a handy 
addition to the programs. The new line, 
which follows, displays the current file as a 
reminder: 

95 LOCATE 18, ?0: PRINT"THE CURREN 
T FILE IS: " ; F$ 

This line can be added to all programs in 



the Versabase series. If you use all the pro- 
grams, the easiest way to add it is to save it 
by itself as an ASCII file, then use M E RGE to 
add it to each separate program. 

David Polonsky 
Tudor Court, Apt. 15 
800 N. Broad Street 
Elizabeth, NJ 07208 

In Search of CoCo 

Editor: 

I'm looking for a spare CoCo. 1 tried to 
locate one at Radio Shack but of course 
had no luck. I have been a die-hard CoCo 
user for about eight years. Does anyone 
have suggestions for a good CoCo com- 
promise? 

Jacqueline Hutton 

15210 Sherman Way. #34 

VanNuys,CA9l405 

Renewed Hope 

Editor: 

I have been an avid RAINBOW reader 
and subscriber for many years, and I still 
have every issue I've purchased. After 
seeing Tandy discontinue the CoCo 3, and 
magazine ads for software and hardware 
disappear (not to mention the decreasing 
size of THE RAINBOW), I thought the CoCo 
was dead. 

Now. with all the information available 
on the Hitachi 6309, and the advent of two 
fairly new CoCo resources, I see new life 
breathing into my Color Computer. I am 
finally going to get actively involved. I 
have been reluctant to submit programs 
because I want to send in more than one on 
a disk. Is that acceptable? 

One more note: I've renewed my sub- 
scription for another year; I would like to 
see THE rainbow back to its old self. I am 
sure many others feel the same way. I, for 
one, would be willing to pay more than S3 1 
a year to have a nice bulky magazine the 
size THE rainbow used to be. 

Christian Miller 

6079 Buerman Road 

Sodus, NY 14551 

You may submit more than one pro- 
gram/article on a single floppy, though we 
much prefer you send each submission on 
a separate disk. The submissions we re- 
ceive are bagged separately for evaluation 
and multiple submissions on one disk in- 
crease the likelihood of problems when 
we're putting a submission into produc- 
tion. 



THE RAINBOW welcomes letters to the 
editor. Mail should be addressed to: Let- 
ters to Rainbow, The Falsoft Building, 
9509 U.S. Hwy 42, P.O. Box 385, Pros- 
pect, KY 40059. Letters should include 
the writer's full name and address. Let- 
ters may be edited for clarity or to con- 
serve space. 

Letters to the editor may also be sent to 
us through our Delphi CoCo SIG. From 
the CoCo SIG> prompt, enter RAI to get 
to the Rainbow Magazine Services area 
of the SIG. At the RAINBOW> prompt, 
enter LET to reach the LETTERS> prompt, 
then select Letters for Publication. Be 
sure to include your complete name and 
address. 
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Feature Program 



Gopher SM 



by THOMAS WONG 



H 



avc you ever tripped over a hole in your yard and discovered thai 
gophers are inhabiting your properly? If so, you probably won't be 
happy when the time comes to repair damages. While you're taking 
a break from your inevitable battle with the gophers, load Gopher 
Smash into your CoCo 3 and take out some of your frustrations. 



After the program has initialized, you 
see nine boxes, each with a letter defining it. 
When a gopher pops up. press the key cor- 
responding with the box containing the go- 
pher, for as many times as the gopher is 
visible. The higher the gopher is above the 
ground, the more points you receive. Watch 
out for surprise bombs, though. The bombs 
are the same point value as the gophers 
except they subtract, rather than add. from 
your score. 

The main goal is to gain the highest pos- 
sible score in 60 seconds. When your time 



is up. you are asked if you want to try again 
or stop. 

The game can be modified in several 
ways. For those who want customized key- 
board layout, replace every third value of 
the DATA statement in Line 1 with Ihe ASCII 
equivalents of the keys you want to use. 
Also, if the gophers pop up too fast, delete 
the high-speed poke in Line I. These are 
just a few examples of what you can do to 
change the program. Good luck smashing 
gophers! 

□ 



Feature Program 



The Listing: SMASH 




"M/MMBOm 



COPYRIGHT 1989 -ALSOFT.INC 

1 POKE65497.0:HSCREEN2:HCOLOR0.0 
:HCOIOR4.0:H-0:K-1:FORA-1TO8:HBU 
F-A.750:NEXTA:FORB-1TO9:READC(B> 
.D(B).E<B):NEXTB:DATA32. 40,81, 12 
8,40,87.224,40,69.32,88,65.128.8 
8.83,224.88.68,32.135,90.128.136 
.88,224.136.67 

2 HCIRCLE(28.24).28.4..3..5.0:HC 
IRCLE(14,24),8.4:HCRCLE(14.24), 
2.4:HCIRCLE(42.24),8.4:HCIRCLE(4 
2,24).2.4:HDRAW"BM28,24F8L16E8BD 
10R8D2G4L8H<Iu2R8D6":HPAINT(14,20 
).7,4:HPAINT(42.20).7,4:HLINE(0. 
24>-(0.40).PSET:FL:NE-(56.40).PS 
ET:HLINE-(56.24).PSET 

3 HPAINT(28.28).2.4:HLINEC88,16) 
(88.20),PSET:HLINE(60,20)-(116, 

40).PSt!,B:HLlNL(60.2/)-(llb.33) 
,PSET,B:HPAINT(88.23).2.4:HPAINT 
(88.30).3.4:HPAHT(88.36),5.4:HD 
RAWBM120.18D20R16U8R36U4L36U8L1 
6":HPAINT(130.28).6.4:HLINE(120. 
22)-(136.34!.PSET.B 

4 HGET(0,0)-(56.24>,1:HGET(0.8)- 
(56,32 ).2:HGET(0. 16) -<56.40).3:H 
GET(180.16)-{236.40),4:HGET(60.0 
)-(116.24).5:HGET(60,8)-(116.32) 
.6:HGET(60.16)-(116.40).7:HGET(1 
20.16)- (176. 40).8:HCLS:HCOLOR2:H 
LINE(4.4)-(316.28),PSET.BF:HLINE 
(4.32)- (316,182) .PSET.B 

5 HCOLOR3:FORF=16TO208STEP96:FOR 
G=65T0161STEP48:HLINF(F.G)-(F+88 
.G+16).PSET.BF:NEXTG.F:HC0L0R4:H 
PRINT(7.9)."Q":HFR;NT(19.9). , 'W: 
H'RINT(31.9)."E":HPRINT(7.15),"A 
":IIPRINT(19.15)."S":IIPRINT(31.15 
),"D":HPR1NT(7.21),"Z":HPRINT(]9 
,21)."X":HPRINT(31.21)."C 

6 I=0:O=61:HPUT(C(K).D(K))-(C(K) 
+56.D(K)+24),4 

7 J-J-l :HPRINT{ 1.1), "SCORE :":HPR 
INT(19.1)."HI-SC0RE:":HPRINT(16. 
2),"TIMF:":HC0L0R?:HLINF(56.8)-( 



136.15).PSET.BF:HLINE(232.8)-(30 
4.15).PSET.BF:HLINE(168,16) (190 
,23).PSET.BF:HC0L0R4:HPRINT(7.1) 
,I:HPRINT(28,1),H:HPRINT(21.2).J 

8 IF I>H THENH-I:J-J+1:G0T07 

9 IF J<1 THEN HPRINT(15,5),"GAME 
0VER":HPRINT(4.23)."Do you want 
to play again (Y/N)?":R$=INKEY$ 

:IFR$="Y"THENHCOLOR0:FLINE(120.3 
8)-(192.47),PSET.BF:HLINE(32.184 
) -(288. 192 ),PSET.BF:HC0L0R4: GOTO 
6ELSEIPR$="N"THENPOKESHFFD8.0:WI 
DTH32:;NDELSE9 

10 K=RND(9):L=RND(2):IF L=1THENM 
-0ELSEM=4 

11 N-M+1:0-N:P-1 

12 HPUT(C(K).D(K!)-(C(K)+56,D(K) 
+24),0:Q$=1NKEY$:IF Q$<>"" THEN 
G0SUB17 

13 0=0+P 

14 IF 0>N+2 THEN 0-N+2 : P=- 1 

15 IF 0<N THEN HPUT(C(K) .D(K) ) -< 
C(K)+55.D(K)+24),4:G0T07 

16 G0T012 

17 F0RS=1T09 

18 IF ASC(Q$)=E(S)THEN19ELSE20 

19 HPUT(C(S).0(S))-(C(S)+56.D(S) 
+24),8:HPUT(C(S).D(S))-(C(S)+56. 
D(S)+24).4:S0UNDE(S).1:IF S=K TH 
EN G0SUB21 

20 NEXTS:RETURN 

21 TFI-1THFNT-I+0:HPRINT(1.2)."0 
UCH!":G0SUB24:HL1NE(8.16)(48.24 
J.PSET.BF 

22 IFL-2THENI-I-(0-4):HPRINT(34. 
2)."B00M!":GOSUB24:HLINE(272,16) 
-(312,24>.PSET.BF 

23 HC0L0R4:RETURN 

24 HCOLOR2:FORT=1TO50:NEXTT:RETU 
RN 



/PS 




hen I am work- 
ing in BASIC, I 
find it conven- 
ient to know 
which drive is currently selected and 
how much free space I have in mem- 
ory. The short program shown here 
modifies the BASIC interpreter to dis- 
play this information every time the 
OK prompt is displayed. 
Enter the program as shown and save it 
to tape or disk. When you run it, a short 
machine-language routine that handles the 
modification is installed in memory. After 
this, you'll see the drive number and free 
memory displayed. (Users with tape-based 
systems will sec a drive number, though it 
won't really mean anything.) 

Once the program has been run, you can 
save the machine-language portion to disk 
by entering 



SAVEM"PROMPT".&H7FO0.&H7F47.&H7F 
00 

Afterward, you can enter the following two 
commands to change your prompt: 

CLEAR 200.&H7EFF 
L0ADM"PR0MPT":EXEC 

(Tape users should change SAVEM and LOADM 
above to CSAVEM and CLOADM.) 

While the modification is in place, don't 
press Reset. Doing so removes the modifi- 
cation and you'll have to run the program 
again. Also, while intended for the CoCo 3, 
the program works on the Coco 1 and 2 as 
long as the computer is put in the all-RAM 
mode first. 



CoCo 3 


* 


100 READA$:FORI-1TOLEN(A$)STEP2: 


The Listing: PROMPT 








B$-MID$(A$,1.2):IFB$-"**" THEN R 


1 'PROMPT IMPROVEMENT 




ETURN ELSE P0KEL.VAL("&H"+B$ ) : L- 


2 "BY RIC PUCELLA 




L+1:NEXT:GOTO100 'ML LOADER 


3 'COPYRIGHT (C) 1992 




110 DATA8F7F07BFAC7A39BDB9588F7F 


4 'BY FALSOFT. INC. 




2EBDB99CB6095A8B30BDA2828E7F3ABD 


5 'RAINBOW MAGAZINE 




B99C1F40931FBDBDCCBDB9588EABEDBD 


60 CLEAR200.&H7F00-1 




B99C3920204445462044522023200020 


70 L=&H7F00 




2046524545204D454D200020** 


80 GOSUB100 






90 CLS:PRINT:PRINT:PRINT"PROMPT 




CHANGED...": PRINT: PRINT :EXEC&H7F 




00:NEW 




/«* 
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Feature Program 



f\ HSCREENs: 

^rf Cut'em Down to Size 




by Joel Mathew Hegberg 



.et's face it, HSCREEN picture files take up 
way too much storage space. Some would 
argue that it's a small price to pay for the ad- 
vanced graphics resolution and color capa- 
bilities the Color Computer 3 provides. 



But each image eats up 16 granules of disk 
space; you can store only four pictures on a 
standard 35-track single-sided disk! When 
1 think about this, I can 't help but remember 
the days of PMOOE screens, which occupied 
a mere three granules each. Wouldn't it be 
nice to have some way to shrink HSCREEN 
picture files in an effort to achieve this same 
level of disk-space conservation? Now there 
is a way — CompSaver and CompLoader. 

CompSaver is a graphics utility that 
compresses and saves HSCREEN images to 
disk. Its brother program. CompLoader. 
handles loading these compressed images. 
decompressing them at load lime. In rny 
experience, 90 percent of HSCREEN images 
are not too detailed. These pictures can 
usually be compressed down to six gran- 
ules or less. The other 10 percent contain 
more detail and take up anywhere from 10 
to 18 granules. 

To get started, enter the programs shown 
in listings 1 and 2, and save them to disk as 




CMPSAVE.BAS and CMPLOAD.BAS, respec- 
tively. It is important that you save them 
before you run them, especially if you have 
made any modifications or corrections. 
When executed, these programs poke 
machine-language routines into memory. 
Both programs check the data statements 
for errors as they perform this task. 

The picture to be compressed must first 
be loaded into memory. Any image created 
by a BASIC program should not present a 
problem, and other images can be loaded 
using one of the many viewers we've seen 
over ihe years. There are some things to 
remember, though. Since CompSaver saves 
the palettes along with the image, make 
sure you don't alter the palette settings by 
entering RGB or CMP. or by pressing Reset. 



Once the image is in memory, run 
CMPSAVE (Listing 1 ). When you are prompted 
to enter the name of the picture, enter a 
standard filename (up lo eight characters) 
with no extension. You are then asked to 
enter the HSCREEN in which the image is 
stored in memory. Enter 1.2.3 or 4, ac- 
cordingly. (Most CoCo 3 images arc 
stored in HSCREEN 2.) After this, your 
picture is saved to disk by a machine- 
language routine. (I used machine 
language because of its tremen- 
dous speed advantages over BA- 
SIC for this type of task.) 

Loading a compressed 
image is easy. too. Run CMPLOAD 
(Listing 2) and enter the name 
of the file. The machine-lan- 
guage loading routine takes 
over and. after the picture 
is loaded, it is displayed 
on the screen. 

The machine- 
language routines in 
CMPSAVE and CMPLOAD are com- 
pletely relocatable. If you have experience 
with assembly, feel free to move these 
routines around if they cause conflicts with 
one of your own machine-language crea- 
tions. 

Now you can enjoy all those HSCREEN 
pictures without breaking the bank buying 
disks. 



Joel Mathew Hegberg has been pro- 
gramming for nine years and enjoys writ- 
ing software for the Color Computer and 
the MM /J . Some of his creations are com- 
mercially available through Sub-Etha Soft- 
ware. Joel may be contacted at 936 N. 1 2 th 
St., DeKalb, IL 60115-2516, (815) 748- 
6638. Please include an SASE when re- 
questing a reply. 



Reviewer 
Information 

In order to continue to bring 
Tandy Color Computer users all 
the best information about new 
hardware and software products 
each month, we are constantly 
looking for new people to join 
our independent review staff. 
Therefore, we invite you to join 
THE RAINBOW'S elite fleet of re- 
viewers. 

You read THE RAINBOW be- 
cause you love your Color Com- 
puter, so if you want a creative 
outlet and a chance to examine 
quality hardware and software, 
with your observations published 
nationwide, we want to hear from 
you. 

Send us a cover letter with 
your name, address, occupation, 
list of equipment, areas of gen- 
eral interests, and a sample re- 
view of a CoCo product you arc 
currently using. We look forward 
to your response. After all, we 
already see you have the best 
taste in computers. 

Reply to: Reviews Editor. The 
Rainbow, The Falsoft Building, 
P.O. Box 385, Prospect. KY 
40059 



CoCo 3 ^> j 


280 END 


Listing 2: CMPLCAD 


76.81.0.10.27.0.59.A7.8D.0.8E.15 




Listing 1: CMPSAVE 


1000 DATA 2.0.6F.8D.0.DF.8E.40.0 
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.AF.8D.0.O9.8E.FF.B0.C6J0.86.21 


1 'COMPRESSED HSCREEN LOADER 


1020 DATA A6.8D.0.87.8B.70.B7.FF 


1 'COMPRESSED HSCREEN SAVER 


37 


2 'BY JOEL HEGBERG 


.A2.BC.A1.76.E6.8D.0.7E.AE.8D.25 


2 'BY JOEL HEGBERG 


1010 DATA 1.97,6F.A6.8C,E7,AD.9F 


3 'COPYRIGHT (C) 1992 


73 


3 'COPYRIGHT (C) 1992 


. A0 . 2 . A6 . 8C , El , AD , 9F , A0 , 2 , A6 . 80 . 


4 'BY FALSOFT. INC. 


1030 DA T A 0.78.A7.80.5A.C1,0,10. 


4 'BY FALSOFT, INC. 


2613 


5 'RAINBOW MAGAZINE 


22. FF.F7.AF.8D.0.6B.8C. 60, 0.10.1 


5 'RAINBOW MAGAZINE 


1020 DATA 34.14.AD.9F.A0.2.35.14 


10 ' 


925 


10 ' 


.5A,C1.0.10.22,FF.EF.86,4A.AD,18 


20 ' COMPRESSED HSCREEN L0ADES 


1040 DA"A 25.FF.CB.A6.8D.0.5F.8B 


20 ' COMPRESSED HSCREEN SAVER 


47 


30 ' BY JOEL MA'HEW HEGBERG 


,1,A7.8D.0,59.81.3.10.22.0,1D.16 


30 ' BY JOEL MATHEW HEGBERG 


1030 DATA 9F.A0.2,86,4D,AD,9F,A0 


40 ' 936 NORTH "WELFTH STREET 


45 


40 ' 936 NORTH TWELFTH STREET 


.2.86,48.AD.9F.A0.2.A6,8D.0,9A.2 


50 ' DE KALB. IL 60115 


1050 DA'A 8E.40.0.AF.8D.0.4D.A6. 


50 ' DE KALB, IL 60115 


187 


60 ' 


8C.97.81.1.10.27.0.3.16.FF.A8.16 


60 ' 


1040 DATA 1A.50.8B.70.B7.FF.A2.8 


70 ' 


89 


70 ' 


6.1.A7.8D.0.91.AE.8D.0.8A.A6.80. 


80 CI FAR1000. 31000 'DEFAULT ADDR 


1050 DATA A6.8D.0.3C.81.1.10.23, 


80 CLEAR1000, 31000 'DEFAULT ADDR 


2292 


ESS 31000 


FF.9E.86.7A.B7.FF.A2.1C.AF.39.20 


ESS 31000 


1050 DATA A7.8D.0.86,8C.5F.FF.10 


90 RESTORE: LC-31000 'DEFAULT L0C 


77 


90 RESTORE :LC-31000 'DEFAULT L0C 


.22.0.23.A6.8D.0.7C.81.FD.10.22. 


ATION 31000 


1070 DA T A 8L,r~,B0,C6.10.34,14,B 


ATI0N 31000 


1880 


100 LL-0:TL-0:LN-1000:LK-LC 


D.A1.76.35,14.A7.80,5A.C1.0.10.1 


100 LL-0:TL=0:LN=1000:LK-LC 


1060 DATA 0.19.A6.84.A1.8D.0.6F, 


110 READ A$:IFAS="**"THEN 160 


994 


110 READ A$:IFA$-"**"THEN 160 


10.26.0.F.A6.80.A6.8D.0,66.8B,16 


120 IFLEN(A$><=2 THEN V=VAL("&H" 


.080 DATA 22.FF.F0.BD.A1.76.BU.A 


120 1FLEN(A$)<=2 THEN V=VAL("&H" 


47 


+A$):P0KE LC.V:LL=LL+V:LC-LC+1:G 


1,76.BD.A1.76.39.BD,A1.76,A7,8D, 


+A$):P0KE LC.V:LL=LL+V:LC=LC+1:G 


1070 DATA 1.A7.8D.0.60.16.FF.D6. 


0T0 110 


2766 


0T0 110 


AF.8D.0.56.C6.1.D7.6F.A6.8D.0.21 


130 V=VAL(A$):IF V=LL THEN TL-TL 


1090 DATA FF.56.BD.A1.76.A7.8D.F 


130 V=VAL(A$):IF V=LL THEN TL=TL 


30 


+LL:LL-0:LN-LN+10:GOTO110 


F, 50. 39.**. 19464 


+LL: LL-0: LN=LN+10:GOTO110 


1080 DATA 51 .AD.9F.A0.2.A6.8D.0. 


140 PRINT"ERR0R WITH DATA IN": PR 




140 PRINT-ERROR WITH DATA IN": PR 


48.AD.9F.A0.2.AE,8D.0.3E.8C.60.2 


INT"LINE #":LN 




I NT" LINE #";LN 


061 


150 STOP 




150 STOP 


1090 DATA 0, 10,25, FF, 98, A6.8D.0. 


160 READ At:V=VAL(A$):TL-TL+LL 




160 READ A$:V=VAL(A$):TL-TL+LL 


32,8B,l.A7,8D,0 i 2C.81.3,10.22.14 


170 IF TL-V THEN 200 




170 IF TL-V THEN 200 


91 


180 PRINT"ERR0R IN DATA STATEMEN 




180 PRINT"ERROR IN DATA STATEMEN 


1100 DATA 0.1E.8E.40.0.AF.8D.0.2 


TS." 




TS." 


0.A6.8D.FF.36.81.1.10.27.0,3.138 


190 S10P 




190 STOP 


8 


200 CLS:PRINT"ENTER NAME OF PICT 




200 CLS:PRINT"ENTER NAME OF PICT 


1110 DATA 16.FF.74.A6.8D.0.E.81. 


URE." 




URE." 


1.10.23.FF.6A.86.7A.B7.FF.A2.211 


210 LINE INPUT">";NM$:NM$-NM$+". 




210 LINE INPUT">":NM$:NM$=NM$+". 


2 


CPS" 




CPS" 


1120 DATA 1C.AF.39.FF.FF.FF.FF.0 


220 OPEN" I".#1.NM$: EXEC LK+2 




220 PRINT"WHICH HSCREEN? (1-4)" 


,**. 25065 


230 HSCREEN PEEK(LK) 




230 INPUT HS:HS=INT(HS):IF HS<1 




240 EXEC LK+23 




OR HS>4 THEN S0UND1 . 5 : GOTO200 




250 CLOSE #1:S0UND 200,3 




240 OPEN"0".#1.NM$:POKE LK.HS:P0 




260 GOTO260 




KE LK+1.0 




1000 DATA 2.0.6F.8D.0,AC.8E,40.0 




250 EXEC LK+2 




,AF.8D.0,A6.1A.50.C6.1.D7.6F,17. 




260 CLOSE #1:SOUND200.3 




1/68 




270 PRINT NM$:" IS SAVED." 




1010 DATA 0.8D.39.17.0.6A.BD.A1, 


/«\ 
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searching through Ihc Forum looking for 
messages discussing specific topics. 

Once you have posted a message, you 
can edit any part of it. While you can edit 
any message you have posted, you cannot 
edit another user's message. To get started, 
enter the following at the Forum prompt: 

EDIT message- number 

where message-number is the number of 
the message you want to edit. The Edit 
menu (shown in Figure 1) is displayed. As 
with many other Forum commands, you 
can enter EDIT by itself to edit the current 
message. Enter EDIT 1 to sec the many 
other options it supports. 

To change the subject of the message 
you are editing, enter SUB J ECT (oran appro- 



KUNS 



Editing Forum Messages 



Do you know that you can edit any 
messages you post in Forum? This comes in 
really handy whether you simply want to 
correct a few typing errors or need to change 
something that is much more important. 
Suppose a Forum thread has strayed from 
its original subject — the original message 



asked a question about using RS-232 ports 
under OS-9 but you get sidetracked dis- 
cussing the merits of a specific terminal 
program. To keep other users from getting 
confused, it is a good idea to edit the mes- 
sage's Subject to reflect this change. This is 
also courteous, especially to those who are 



FORUM EDIT Menu: 

TEXT of Current Message 
SUBJECT of Current Message 
TOPIC of Current Message 
DELETE Current Message 
SHOW Message Header 
HELP 
EXIT 

Figure 1: Forum Edit Menu 



jecl. Do so, or press ENTER by itself to 
retain the current subject. To also change 
the topic of the message, enter TOPIC at the 
EDIT> prompt and follow a similar proce- 
dure. If you forget what the current mes- 
sages's subject and topic are, enter SHOW to 
display the message header and the first line 
or so of the message. You can also delete a 
Forum message from the Edit menu (by 
entering DELETE or DEL), although it's much 
easier to use the DELETE command directly 
from the F0RUM> prompt. 

If you want to edit the body text of the 
message, enter TEXT at the EDI T> prompt. 
This drops you into your selected editor 
(EDT or Oldie). Within the editor, you can 
change all the text of the Forum message, 
much as you might use your editor to edit a 
file in Workspace. If your chosen editor is 
EOT, you'll need to enter EX IT to return from 
the editor to the EDIT> prompt. Users of 
Oldie should enter /E to exit. 

When you have finished editing the 
Forum message, press CTRL-Z at the EDIT> 
prompt (or enter EX I - ) to return to the 
F0RUM> prompt. 



priate abbreviation) at the EDIT> prompt. 
Delphi prompts you to enter the new sub- 



Eddie Kims is pursuing a doctorate in 
physics at Rutgers University. He lives in 
Aurora, Illinois, and works as a program- 
mer and researcher at Fermi lab. Eddie is 
the database manager of the OS-9 SIG and 
can be reached online as EDDIEKUNS. 



The Delphi Voting Booth 



Two areas on Delphi that appear to be 
underused are Poll in the CoCo SIG and 
Voting Booth in OS9 Online. Although 
their names differ, these areas have exactly 
the same function: they let you "speak your 
piece." Once you enter the Poll area, you'll 
see the P0LL> prompt, where you have the 
options shown in Figure 2. 

To see a list of the polls on which you can 
vote, simply enter LIST. All active polls 
will be displayed. To see the results of a 
specific poll, enter RESULTS poll name. (If 
you enter RESULTS by itself, you are 
prompted for the poll name.) You will see 
something like the text shown in Figure 3. 
After the votes for that poll are displayed. 
Delphi lists the comments voters added. 
Finally, you are prompted for whether or 
not you want to vote on that poll, even if 
you've already voted on it. If you answer 
Yes but have already voted on the Poll, 
Delphi asks if you want to change your 
previous vote. (No, Delphi doesn't support 
the Chicago-style "vote early, vote often" 
approach.) 

Another way to vote on a specific poll is 
to use the VOTE command. As with the 
RESULTS command, you can either provide 
the poll name on the command line or let 
Delphi prompt you. After you enter your 
vote. Delphi allows you to enter a comment 
on the poll. Your comment is limited to 
about four 80-character lines. 

If you have already voted on a poll and 
don't want to change your vote, but you do 
want to change your comment, use the EDIT 
command. If you created the poll, you also 
use EDIT to modify it. 

The BROWSE command allows you to 
(ravel through each poll in sequence, giving 
you a chance to see how others voted. When 
you enter BROWSE, you start at the first active 
poll and end with the last. Of course if you 



want to leave Browse early, 
press CTRL-Z. 

You can create your own 
poll by using the CREATE 
command. When you enter 
CREATE, you are prompted 
for a poll name. Enter some- 
thing that people will under- 
stand when they use the LIST 
command. Next, you are 
prompted for the poll type. 
There are three kinds of polls: 
1 ) Yes/No; 2) strongly agree 
through strongly disagree 
(the person answering the 
poll has five choices); and 3) 
multiple choice, in which you 
enter specific choices, as Jim 
Reed did in the example. 

If you choose to create a 
multiple-choice poll, Delphi 
allows you to enter up to 12 
categories, each of which 
may be up to 20 characters in 
length. Enter your choices 
and press CTRL-Z. You can 
even opt to allow voters to 
add new categories when 
they vote. But remember that 
there can be only 1 2 catego- 
ries altogether. 

Finally, you arc asked to 
enter your argument. The text 
you enter appears before I he 
actual poll, hi the sample poll 
from the CoCo SIG. Jim Reed started enter- 
ing the text at "I was sitting here . . ." 

Once you have created a poll, by all 
means vote on it. After all, you must have a 
reason for having created the poll in (he first 
place. Then feel free to enter the Forums of 
both SIGs and advertise your poll. 



BROWSE through poll results 
CREATE a new poll 
EDIT your poll comment 
EXIT 



HELP 

LIST poll names 
RESULTS with comments 
VOTE on a poll 



Figure 2: Poll Menu 



SCREEN VIEWING DISTANCE, created by JIMREED. 
Creation date: MAY 16.1989 

I was sitting here staring at the screer a 

bit closer than normal for me and 

began wondering how far from the screen 

most people sit. I was thinking about 

something and realized I was only 12 inches 

from the screen. Usually. 1 sit 

about 16 inches away - not that far! So. 

when you are using the computer, how 

fa- away are your eyes from the screen 

surface? 



CHOICE 


VOTES 


PERCENT 


Less than 12 inches 


2 


Z% 


12 to 14 inches 


1 


1% 


14 to 16 inches 


1 


V% 


16 to 18 inches 


9 


11% 


18 to 20 inches 


13 


16% 


20 to 22 inches 


15 


18% 


24 to 30 inches 


32 


-OS 


30 to 36 inches 


b 


6% 


over three feet! 


1 


1% 


TOTAt VOTE: 


79 





Figure 3: Sample Poll 




With the CoCo 1 and 2. it is especially 
important lo make sure (he primer is online 
before sending dala lo it. Include (he fol- 
lowing line in your BASIC programs to de- 
termine whether or not the printer is ready: 



A=!PEEK(65314> AND 1) 

If the value returned in Variable A is 1, the 
printer is not ready. (You can use any 
numeric variable in place of A.) 



mow)W 



Conference Schedule 



January 1993 



Several regularly scheduled con- 
ferences take place in the CoCo and 
OS9 Online SIGs. On the first Mon- 
day of each month, Steve Bjork dis- 
cusses game programming, and on the 
second Monday of each month, Tim 
Kientzle and I have a conference about 
using Delphi. 

In addition to the two monthly con- 
ferences', there are four weekly con- 
ferences: • „ 



Thursday — OS-9 Help Line 

led by Chris Deierlein 
Thursday — RiBBS Help/Talk Con- 
ference 

led by Charles West 
Fridav — The Art and Science of; 
UUCP 

led by Rick Adams and Trix 
Saturday — AcBBS 

led by Chris Serino and the authors 

of AcBBS 



All regularly scheduled conferences 
take place at 10 -pap. Eastern time. 
There are also many spontaneous 
conferences. Remember that anyone 
whose name is surrounded by paren- 
thesis when you do a / WHO command 
is in the conference area. 



Uploads at a Glance 

In the OS9 Online General Information 
database, Michael Dalene (MDALENE) 
posted a demo for the Star-Gemini NX- 
1020 Rainbow printer, showing off the 
printer's features as well as demonstrating 
how to integrate escape codes into a text fi le 
using the VI editor. If you want to look 
through the databases to see what's there 
but don't want to spend several hours on- 
line searching file by file for something 
interesting, download Greg taw's (GREGL) 
contribution: 15 files listing all the groups 
(with descriptions) in each database topic. 
Paul Wright (PWRIGHT) posted transcripts 



for an AcBBS conference as well as a C 
conference. 

In the Applications database topic, Paul 
M. Fitch, Jr. (EMTWO) released a new 
error command that works with the hel p 
command Tim Kientzle (TIMK1ENTZLE) 
posted a couple of years ago. The new 
error command prints verbose descrip- 
tions of OS-9 error numbers. In the Tele- 
com (6809) database. Ken Flanagan 
(KENFLANAGAN) released the latest version 
of Scribe, a program that allows you to read 
mail messages offline when you receive 
. QWK packets. 

If you've been having trouble using the 
PCDOS version of CC3D1 sk together with 
Bruce Isted's serial-mouse patch for the 



CoCo, you'll be interested in Jim Martin's 
file describing how to fix the interrupt 
conflict between the two devices. In the 
Programmers Den topic. Robert Kemper 
(BOBKEMPER) released an archive of infor- 
mation to help BASIC09 programmers. Don 
Berrie released CENV — a point and click 
environment for the C compiler on the 
CoCo. 

In the OSK Applications database, Eric 
Crichlow (hyperte) released Image Mas- 
ter, an icon and sprite editor designed for 
the MM/1 under KWwindows. If you have 
never used make to maintain a program but 
want to, take a look at the examples Glen 
Hathaway (comper) posted in the Tutori- 
als database. 



In the CoCo SIG CoCo 3 Graphics data- 
base, Chet Simpson (HYPERTECH) released 
a new version of Image Master. This ver- 
sion is customized for the special features 
of the 6309 and uses block moves to really 
speed up things. In the Utilities & Applica- 
tions database, M. David Johnson 
(MDJOHNSON) released a number of utili- 
ties designed to work with CF83 a ver 
sion of Standard Forth '83. Richard 
McNabb (rickmac) released a new ver- 
sion of DIRU3, which allows copying files 
between disks and many other disk-mainte- 
nance functions. 

In the Games database, Johnny Wil- 
liams (drillmaster) uploaded a slot- 
machine program for the CoCo 3. 




0S-9 SIG 



General Information 

STAR NX-1C20 SHOWS OFF 

MDALENE Mlchele Dalene 

SCSI ADAPTOR ANOUNCEMEN" 

FIIOGG Frank Hogc 

DATABASE LISTINGS 

GREGI. Greg Law 

0S-9 COMMUNITY NETWORK INFO. AUG 

A1RWOLF2 Greg Morgan 

C01\FRFNCF TRANSCRIPTS 

PWRIGHT Paul Wright 

Applications (6809) 

ERROR/HELP: REPLACEMENT ERROR CMD 
EMTWO Paul M. Fitch. Jr. 

STREAM: HARD DRIVE BACKUP UTIL 
JENG John Eng 

GETIME: CLOCK SETTING UTIL 
BLAINET Blaine Tempest 

REPACK FIX FOR KRN. PATCH 
COCOXT Christopher Burke 

DBL 2: DOUBLE SIDED PRINTER 
WOAY Jim Martin 

Telecom (6809) 

SCRIBE 4.0 OFFLINE READER 
KENFLANAGAN Ken Flanagan 

System Modules 16809) 

SMOUSE INTERUPT CLASH FIX 
WOAY Jim Martin 

Games & Graphics 

STRIP POKER FOR 0S9 
DEANHOLDER Dean Holder 

PIXSHOW MM/1 . PIX VIEWER 
BRUCEGERST Bruce Gerst 

HANGMAN V2.4 
MOHRT Tim Mohr 

Music & Sound 

BLADE RUNNER: STEREO SOUND 
JOHNBAER John Baer 

Programmers Den 

BASIC09 HELP FILES 
BOBKEMPER Robert Kemper 

CENV:C COMPILER USER INTERFACE 
DABERRIE Don Berrie 



OSK Applications 

PSF: TEXT TO POSTSCRIPT C0NV. 

MARKGRIFFITH Mark Griffith 

DVI2EP2: DV1 TO EPSON CONVERTER 

JOHNREED John Wainwright 

IMAGE MASTER 

HYPERTE Eric Crichlow 

GNU INDFNT FXFCUTABLE 

NIMITZ David Graham 

TSTART: COLORIZE TASC0M 

COMPER Glen Hathaway 

DIRECTORY COPIER 

COMPER Glen Hathaway 

Tutorials & Education 

ELM INSTALLER SH-SCR1PT 
THEFERRET Philip Brown 

SAMPLE MAKE FILES 
COMPER Glen Hathaway 

Standards 

IFF FILE SPECIFICATIONS 
MDALENE Michele Dalene 



CoCo SIG 



CoCo i Graphics 

IMAGE MASTER V4.0 
HYPERTECH 



Chet Simpson 



Utilities & Applications 

CF83 BLOCK/FILE CONVERSIONS 
MDJOHNSON M. David Johnson 

CF83 PM0DE GRAPHICS TEXT CHARACT 
MDJOHNSON M. David Johnson 

CF83 BENCHMARK 

MDJOHNSON M. David Johnson 

CF83 TEX" SCREEN CONTROL 
MDJOHNSON M. David Johnson 

DIRECTORY TO ASCII FILE. 
MDJOHNSON M. David Johnson 

TWO DISK DIR/FILE UTIL UPDATE 
RICKMAC Richard McNabb 



Games 

SL0TC0CO.BAS 
DRILLMASTER 



Johnny Williams 




THE RAINBOW TO THE RESCUE 

SEE PAGE 14 
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NO MORE DISK FRAGMENTS! 




Disk Extended Color basic is 
antiquated in that it includes 
many compensations for the 
unreliable hardware of its time. These in- 
clude long liming delays (to allow the motor 
to come up to speed) and intentional frag- 
mentation of disk data (to prevent undue 
wear on the disks). 

When was the last time you noticed 
"wear" on one of your disks? Chances are, 
you haven't. Yet Disk BASIC insists on 
scattering tile data across your disks in an 
attempt to spread the "wear" as thinly as 
possible. It does this by storing files from 
the directory track (Track 17) outward 
(toward the outside and inside edges of the 
media), alternating on a granule-by-gran- 
ule basis. 

The unfortunate result of all this is an 
increase in access time, especially for larger 
files. This decrease is even more noticeable 
if the files are frequently used. 

To overcome this decrease in perform- 
ance, I wrote CoCo Disk Defragment or. 
This program takes the bits and pieces of 
the files on a disk and puts them together, 
storing the result on a new disk. In the 
process, it rewrites the granule table. 

CoCo Disk Defragmentor requires two 
disk drives and works with any CoCo hav- 
ing at least 32K of memory. If you use a 
CoCo 3, the computer is set to 32-coIumn 
screen (if it is not already there) and Super 
Extended BASIC is disabled (the "CoCo-2 
mode"). To regain access to the CoCo 3 
functions (perhaps to run a listing), enter 

CLEAR 200,32768:P0KE 65503,0 

To use CoCo Disk Defragmentor, first 
enter the program exactly as it appears in 
the listing, and save it to disk. When you 
enter RUN, a menu appears showing you the 
program's three options: Begin Defragmcn- 
tation. Display Granule Table and Quit. 

To defragment a disk, press B. Make 
sure the disk you want to defragment is 
write protected (to prevent data loss should 



a crash occur). Now insert the disk into 
Drive 0, put a blank formatted disk in Drive 
1 . then press ENTER. As the program goes 
to work, the screen displays the current 
filename, operation, track and sector, gran- 
ule number and drive number. This allows 
you to moniK .ne operation. Depending 
upon the number of files on the original 
disk, defragmentation may take from one to 
10 minutes. Finally, never reuse or get rid of 
the original disk. You may need it later for 
backup purposes. 

The Display Granule Table option shows 
you the granule table for the disk in Drive 0. 
Granules are numbered from to 67, and 
each entry in the table points to the next 
granule in the file. Granules that begin with 
a C (as in hexadecimal C4) indicate how 
many sectors are used in the last granule of 
the file. You can use this option to examine 
the effects of defragmentation. 

Programs that expect to find certain 
information on specific sectors of the disk 
won't function properly when they are 
defragmented; this will be encountered more 
often with machine-language programs than 
with BASIC. Defragmentation is basically 
an organized CO F Y — it does not back up the 
entire disk — and CoCo Disk Defragmen- 
tor does not know these programs have 
special requirements. 

I hope you enjoy using this handy little 
utility. If you have any comments, sugges- 
tions or questions, feel free to write. 



Nick Johnson is 1 7 years old and is a 
senior at Crestview High School, where he 
participates in the gifted-student program. 
lie started programming on a 32 K CoCo I 
in 1982 and. after purchasing a CoC" 3, 
advanced quickly; in his own words. S ick 
"now programs almost constantly.' He 
may be contacted at 5830 Reinke Dr.. 
Crestview, FL 32536-891 3. Please include 
and SASE when requesting a reply. 
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660 0-0-1 '0 IS ii OF FILES 


The Listing: DISKFRAG 




670 0P$-"READING FAT" 


1 'DISK DEFRAGMENTOR 


680 T-17:S-2:D-0 


2 'BY NICK JOHNSON 


690 G0SUB 1480 


3 'COPYRIGHT (C) 1992 


700 GOSUB1810:DSKI$0.17,2.A$(1). 


4 , B V FALS0FT. INC. 


B$(l) 


5 'RAINBOW MAGAZINE 


/10 GOSUBl/90:GR-0 'LAS! AVA1LAB 


10 VERIFY0N 


LE GRN ON NEW DISK 


20 IF PEEK(SHFFFF)=27 THEN WD-PE 


720 FOR K-l TO "OUTER LOOP 


EK(&HE7):EXEC &HF652:P0KE 65502. 


730 IF INKEY$-CHR$!13) THEN 50 





740 F$-LEFT$(Fl$(K).ll) 


30 PCLEAR 1 


750 OP$-"ANALYZING FI LE" :T— 1 :D- 


40 DV-PEEKUH95A) 


-1:G=-1:G0SUB 1480 


50 CLEAR 20000:DIM F1$(68):DIM A 


760 FG=ASC(MID$(F1$(K),14,1)):EG 


$(10):DIM B$(10):DIM G(72) 


=FG '1ST GRAN 


60 CLS 


770 LB=ASC(MID$(F1$(K).15,1))*25 


70 PRINT" -=> COCO DISK DEFRAGM 


6+ASC(MID$(Fl$(K).16.D) 


ENT <=-" 


780 G(K)-GR 


80 PRINT" --> BY NICK JOHNSON 


790 0P$-"GRABBING GRANULE" 


<--" 


800 D=0:G=EG:GCSUB 1550 


90 PRINTrPRINT 


810 0P$="WRITING GRANULE." 


100 PRINTTAB(6)"bEGIN DEFRAGMENT 


820 D-1:G-GR:GCSUB 1680 


ATI0N" 


830 0P$-"CHECKING NEXT GR":D— 1: 


110 PRINT 


T— 1:S— 1:G--1:G0SUB 1480 


120 PRINTTAB(6)"dISPLAY GRANULE 


840 NG=ASC(MID$(A$(1),EG+1,D) 


TABLE" 


850 IF NG>-192 THEN 930 


130 PRINT 


860 EG=NG:GR=GR+1 


140 PRINTTAB(6)"qUIT" 


870 0P$="UPDATING FAT" : D-l :T-17 : 


150 PRINT@100,STRING$(25.207):PR 


S-2:G— 1:G0SUB 1480 


INT@292.STRING$(25.207) 


880 FAT$-FAT$+CHR$(GR) 


160 FOR X-4 TO 8:PRINT@(X*32)+4. 


890 G0SUB 1810 


CHR$(207);:=RINT@(X*32)+28,CHR$( 


900 DSKO$1.17,2.FAT$,"" 


207)::NEXT X 


910 G0SUB 1790 


170 PRINT9384 


920 GOTO 790 


180 A$-INKEY$:IF A$="" THEN 180 


930 0P$-"UPDATING FAT" : D-l :T-17 : 


190 IF INSTR("BDQ",A$)=0 THEN 18 


S-2:G— 1:G0SUB 1480 





940 rAT$-FAT$+CHR$(NG):GR-GR+l 


200 IF A$-"B" THEN 220 ELSE IF A 


950 G0SUB 1810 


$-"0" THEN 1200 ELSE IF A$-"Q" T 


960 DSK0$1,17,2,FAT$,"" 


HEN 210 


970 G0SUB 1790 


210 G0SUB 1810:CLtAR 200,32768:1 


980 NEXT K 


F PEEK(&HFFFF)-27 THEN POKE 6550 


990 0P$-"UPDATING DIR": D-l :G--1 


3.0:POKE &HE7.WD:END 


1000 ' 


220 CLS 


1010 FI-1:F0R MS-2 TO 10 


230 A$="DEFRAGMENTATI0N" 


1020 FOR 1-14 TO 128 STEP 32 


240 G0SU8 1350 


1030 MID$(A$(MS).I.1)-CHR$(G(FI) 


250 PRINT'MNSERT A BLANK, FORMAT 


) 


TED DISK IN DRIVE 1." 


1040 FI-F1+1 


260 PRINT: PRINT-INSERT THE TRAGM 


1050 NEXT I 


ENTED DISK IN DRIVE 0." 


1060 FOR 1-14 TO 128 STEP 32 


270 PRINT: PRINT"PRESS [enter] WH 


1070 MID$(B$(MS).I.1)-CHR$(G(FI) 


EN READY." 


) 


280 IF INKLY$OCHR$(13) IHtN 280 


1080 FI-FI+1 


290 CLS 


1090 NEXT I : NEXT MS 


300 A$-"DEFRAGMENTATI0N IN PR0GR 


1100 FAT$=FAT$+STRING$(68-LEN(FA 


ESS" 


T$),255) 


310 GOSI.B 1350 


1110 T-17:S-?:F$-"" 


320 PRINT:FAT$-"" 


1120 G0SUB 1480 


330 PRIt«TTA3(5)"PRESS [ENTER] TO 


1130 G0SUB 1810:DSKO$1,17.2.FAT$ 


ABORT." 


."":G0SUB 1790 


340 PRINTS160. "FILENAME" 


1140 FOR 1-3 TO 11 


350 PRINT@192. "CURRENT OP:" 


1150 G0SUB 1810 


360 PRINT@224, "TRACK. SECTOR" 


1160 DSK0$1.17,I,A$(I-1),B$(I-1) 


370 PRINT9256, "GRANULE" 


1170 G0SUB 1790 


380 PRINT9288, "DRIVE" 


1180 NEXT I 


390 PRINT 


1190 GOTO 50 


400 F$-"":0P$-"READING DIREC T 0RY 


1200 CLS 


":T— 1:S— 1:G— 1.-D-0 


1210 FC-0 


410 G0SUB 1480 


1220 A$-"GRANULE TABLE: " 


420 'READ THE DIRECTORY. 


1230 G0SUB 1350 


430 G0SUB 1810 


1240 G0SUB 1810 


440 FOR 1-3 TO 11 


1250 DSKI$ DV,17,2.A$,B$ 


450 DSKI$0.17.I,A$(I-1).B$(I-1) 


1260 G0SUB 1790 


460 S=I:T=17:G0SUB 1480 


1270 PRIN"STRING$(32, "-"): 


470 NEXT I 


1280 FOR X-l TO 68 


480 G0SUB 1/90 


1290 PRIN"T USING " %% -;HEX$(ASC( 


490 0P$="PR0CESSING DIR":T— 1:0- 


MID$(A$,X,1))); 


-1:G0SUB 1480 


1300 IF ASC(MID$(A$.X,1))=255 TH 


500 P=2 


EN FC-FC+1 


510 N-l :0-l 


1310 NEXT X 


520 IF (N-l)*32>=128 THEN 570 EL 


1320 PRINT:PRINT" FREE: "FC: PRIN 


SE Q$-MID$(A$(P).(N-1)*32+1,32) 


TSTRING$(32,"-"); 


530 IF ASC(Q$)-0 THEN N-N+l: GOTO 


1330 PRINT'TRESS ANY KEY." 


520 


13^0 IF INKEY$>"" THEN 60 ELSE 1 


540 IF ASC(A$(P))-255 OR ASC(0$) 


340 


-255 THEN 650 


1350 X1-0:X2-31 


550 F1$(0)=Q$ 


1360 A=LtN(A$) 


560 IF (N i l)*32>-128 THEN 570 EL 


1370 B-FIX(A/2) 


SE N-N+l: 0-0+1: GOTO 520 


1380 B$=LEFT$(A$,B) 


570 'N-l 


1390 C$=(MID$(A$.B+1.A-B+D) 


580 IF (N--l)*32>-128 THEN 630 El 


1400 X?-X2-LEN(CS) 


SEQ$=MIC$(B$(P).(N-1)*32+1,32) 


1410 IF X1>=1 THEN PRINT9X1-1." 


590 IF ASC(Q$)=0 THEN N-N+l: GOTO 




580 


1420 PRINT@X1,B$; 


600 IF ASC(B$(P))-255 OR ASC(0$) 


1430 PRINT@X2,C$ 


=255 THEN 650 


1440 X2-X2-1 


610 F1$(0)-Q$ 


1450 Xl-Xl+1 


620 IF (N-l)*32>-128 THEN 630 E 


1460 IF X2-X1+CB-2) THEN 14/0 LL 


LSE -N-N+l -0-0+1: GOTO 580 


SE 1410 


630 P=P+1:IF P>11 THEN 650 


1470 PRINT@32,"";:RETURN 


640 N-1:G0T0 520 


1480 ' 


650 ' 


1490 PRINT9171. USING"% 
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X";F$ 






-0 ELSE SS=10:M=9 


1740 GOSUB 1810 


1500 


PRINT@204. USING"2 




1590 


FS-SS+8 


1750 DSKO$D.ST.Z.C$(Z-M).D$(Z-M) 




X";OP$: 




1600 


FOR Z-SS TO ES 


1760 GOSUB 1790 


1510 


PRINT@238."";:IF T— 1 


OR S- 


1610 


S-Z:T-ST:GOSUB 1480 


1770 NEXT Z 


-1 THEN PRINT" ";:GOTO 1520 


1620 


GOSUB 1810 


1780 RETURN 


ELSI 


PRINT JSING"## ##";T 


S; 


1630 


DSKI$D,ST,Z,C$(Z M).D$(Z M) 


1790 IF PEEK(&HFFFF)=27 THEN POK 


1520 


PRINT@264, ••";: IF 6—1 


THEN 


1640 


GOSUB 1790 


E 65497,0 ELSE POKE 65495,0 


PRIN' 


"::GOTO 1530 ELSE 


PRINT 


1650 


NEXT Z 


1800 RETURN 


3; 






1660 


RETURN 


1810 IF PEEK(&HFFFF)=27 THEN POK 


1530 


PRINT@293,"";:IF D— 1 


THEN 


1670 


' 


E 65496.0 ELSE POKE 65494.0 


PRIN" 


";:GOTO1540 ELSE 


PRINT 


1680 


ST=FIX(G/2) 


1820 RETURN 


D: 






1690 


IF G>33 THEN ST=ST+1 




1540 


RFTURN 




1700 


IF G/2-FIX(G/2) THEN SS-1:M 




1550 






=0 ELSE SS-10:M-9 




1560 


ST-FIX(G/2) 




1710 


ES-SS+8 




1570 


IF G>33 THEN ST=ST+1 




1720 


FOR Z-SS TO ES 




1580 


IF G/2-FIX(G/2) THEN 


>S-1:M 


1730 


S=Z:T=ST: GOSUB 1480 
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When is an 
Interpreter Better? 

Many programmers routinely dismiss 
BASIC for a reason that has nothing to do 
with the language itself: Typically BASIC is 
implemented on microcomputers as a fairly 
simple interpreter, and it has thus earned a 
reputation as a slow language even though 
bask: compilers can be used to create pro- 
grams that run just as fast as their counter- 
parts in other languages. Curiously, other 
interpreted languages have not earned this 
reputation. PostScript, APL, Smalltalk and 
Forth are all typically interpreted (in some 
fashion), but none of these is considered 
notoriously slow as is BASIC. To understand 
the difference, let's go back to the early 
days of computers and consider the contro- 
versy that once surrounded subroutines. 

At one time all programming was clone 
in machine code for computers that were 
puny by today's standards. Programmers 
stretched every bit of speed and memory 
efficiency by carefully rearranging and 
combining operations to take best advan- 
tage of whatever partial routines might al- 
ready be available. Eventually a trick was 
discovered that allowed programs to have 
only one copy of certain routines — this is 
what we now call subroutines. The draw- 
back was that it takes time to call a subrou- 
tine and return from it, and many program- 
mers thought this additional time would 
result in unduly slow programs. However, 
they discovered that in a typical computa- 
tion, almost all the time required was spent 
performing the instructions within the sub- 
routine, and that the time to call and return 
from the subroutine made the program only 
slightly slower. It was clear that the mem- 
ory savings of using subroutines far out- 
weighed the slight additional time needed 
for the program to run, and the technique 
became common. Eventually users began 
loading collections of widely-used subrou- 
tines into the machine with every program, 
and these collections of subroutines be- 
came what we now call operating systems. 

Although few people today would ques- 
tion the value of a subroutine, almost ex- 
actly the same situation occurs with an 



interpreted language. Each statement of the 
program being interpreted is really just a 
subroutine that results in a subroutine call 
within the interpreter. In this sense, the only 
difference between an interpreter and a 
compiler is that an interpreter figures out 
which subroutine to call as it reads each 
line, whereas a compiler figures this out 
once, and the compiled program simply 
calls the subroutines. What makes the inter- 
preter slower is that il takes time to figure 
out which subroutine to call. If this time is 
a significant percentage of the total time, 
the interpreted version of the program is 
much slower. On the other hand, if the 
interpreter spends most of its lime in the 
subroutines (i.e., actually doing the work), 
then the interpreted and compiled programs 
run at about the same speed. 

The time needed to determine which 
subroutine to call is often referred to as the 
interpretation overhead. In a language like 
BASIC, atypical statement might cause two 
numbers to be added and stored in a vari- 
able. Since adding and moving numbers is 
very simple, the interpretation overhead 
does tend to take most of the time. In APL, 
a typical statement might cause a matrix to 
be inverted. Since inverting a matrix takes 
a very long time compared to the interpre- 
tation overhead, interpreted APL runs very 
nearly as fast as if it were compiled. 

So, now we see that an interpreter can be 
very fast when the basic commands of the 
language perform very complex tasks. In 
PostScript, a single command can result in 
a very sophisticated (and time-consuming) 
graphics operation. This means that when 
selecting a language for writing a program, 
we should pay attention to how well the 
fundamental operations of the language 
match our job. Color BASIC, for example, 
does fairly well when the program empha- 
sizes string, floating-point, and certain types 
of graphics operations. These are all rela- 
tively time-consuming operations that can 
be accomplished with only a few statements. 
BASIC does relatively poorly, however, when 
interpreting a program that performs exten- 
sive memory operations, since those are 
fairly simple operations. 

As we've seen, an interpreted language 
need not be significantly slower than a 
compiled one. In fact, interpreted languages 
have advantages. Compiled programs are 
typically larger than their original source 
code, and interpreters usually use less space 
for storing programs. It is also easier to 
make interpreters work interactively, which 
makes it easier to debug and test programs. 
Finally, compilation itself can be time- 
consuming, so interpreters are often pre- 
ferred if the resulting program is going to be 



run only a few times, as is the case with 
PostScript. 

Even for languages that lack powerful 
fundamental operations, we shouldn't 
completely dismiss interpreters since ma- 
jor advances are being made that allow 
interpreters to run much faster. Forth and 
Smalltalk usually perform pari of the inter- 
pretation once, storing some of the useful 
information. This is sometimes called 
pseudo compiling. This kind of technique is 
being pushed to the limit by companies 
writing emulation programs. Emulators are 
interpreters that interpret the ma ■•'" i ne code 
of another machine. For example, emula- 
tors have been developed that run MS-DOS 
software on Macintosh, Unix, Atari and 
other computers. Since machine instruc- 




tions perform very simple operations, 
emulators are usually the slowest kind of 
interpreter. Methods being developed now 
to make emulators usably fast will probably 
be used someday to help interpreters of 
BASIC and other languages run more quickly. 
Indeed, it seems certain that interpreters 
will be more and more important as com- 
puter technology improves. 



Tim Ki entile is currently pursuing a doc- 
torate in mathematics at the University of 
California at Berkeley. He is the author of 
V-Term and has worked with the Color 
Computer since 1982. 
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from "Kid. Iowa I Coun&iy CoCo" 
Are you feeling Isolated on your CoCo? 
Would you like be to part of a nation wide support? 
Or just widen you present support? 

Now in our third year as a National Disk newsletter. 
Join subscribers 
in over 26 states plus 3 provinces of Canada! 
Receive the "UPGRADE" Disk newsletter (6-8 annually) 
combining 16 color graphics with articles from RSDOS Basic 
to OS-9, editorials and product reviews. PLUS! Your MI&CC 
membership opens our library of 150+ disks of select. 
Public Domain and Shareware to you and more! 
MI&CC is now planning a "Mid America CoCo Fest" March 93 



4. 



Your RAINBOW Package deal includes: 
1 year membership in MI&CC 
UPGRADE Diskletter subscription 
Reg: 128K CC3, W/l drive, RGB, or TV 
HOME-PAC >>FAST-CHECK Shwre, CC3 disk 
(Reviewed, best of it's kind on CoCo) 
Plus a surprise Bonus disk! 
That's 3 disks on your first mailing ! 

$19.00 US S24 Canada $31 Foriegn Air 

$3.00 sample disk Check or M.0. 

The. "UPGRADE" NcUA-oncU. DlsJU&ttesi 

"MA. Iowa & Country CoCo" (non-profit) 

Terry Simons Editor/ Treasurer 

1328 48th Des Moines, IA 50311 
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number of cauls remaining in the 
upper portion is displayed and you 
are asked if you want to play again. 
Press Y or N accordingly. 

To quit the game in progress, press 
Q. You are asked if you would like to 
play again. This is a good way to start 
a new game if you don't like the 
cards dealt to you. 

Darn It also supports an "oops" 
function. If you make a wrong move, press 
O and the game undoes the last move. You 



can press O repeatedly to 
go as far back in the 
current game as 
you want. This 
can be useful 
if you want 
to attempt a 
different 
strategy 
rom a previ- 
Z ous point. The 
f Oops function 
Wr works even after 
gfr* Dam It displays the 
No More Moves message. 
Dam It is a very chal- 
lenging game (perhaps this is why 
it so addictive). To make the game a 
little easier, you can eliminate the rule 
by which no card can be played on a 
King. Do this by deleting (or masking 
with REM statements) lines 1 130 and 
1320. Good luck! 



Kenneth Reighard, Jr., is studying 
computer science and engineering at 
the University of Toledo, where he is a 
member of Triangle Fraternity. He 
enjoys programming, reading mys- 
tery novels and participating in 
sports. Ken may be contacted at 3355 
Dorr St., Toledo, OH43607, (419) 531- 
8149. Please include an SASE when re- 
questing a reply. 
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The Listing: DARN IT 

1 'DARN IT 

2 'BY KENNETH REIGHARD. JR. 

3 'COPYRIGHT (C) 1992 

4 'BY FALSOFT, INC. 

5 'RAINBOW MAGAZINE 

100 DIM U(52). C(52). P(52). G(6 

.6). SU5), R(6), 0(52) 

105 CLS: INPUT-MONITOR (R/C)":0$: 

IF 0$-"R" THFN MN--1 ELSE IF Q$- 

"C" THEN MN-0 ELSE 105 

107 CLS 

110 POKE 65497.0 

115 ON BRK GOTO 180 

119 GOSUB 1500 "BLANK SCREEN 

120 GOSUB 1800 'DRAW CARDS 
123 GOSUB 2400 'DRAW TITLES 
125 GOSUB 1400 'RESET COLORS 
127 GOSUB 2500 'PLAY MUSIC 
130 GOSUB 200 'SHUFFLE CARDS 
140 GOSUB 300 'DEAL CARD ARRAYS 
150 GOSUB 400 "SET UP SCREEN 
160 GOSUB 500 'PLAY GAME 

165 HC0L0R 7:HPRINT(11.15)."Play 
Again (Y/N)?" 
170 Q$-INKEY$:IFQ$-"Y" THEN HCLS 
:G0T0 130 ELSE IF Q$="N" THEN 18 
ELSE IF Q$="0" THEN GOSUB 2600 
:HL1NE( 72. 112) -(264. 128). PRESET. 
BF:G0TO 160 ELSE 170 
180 GOSUB 1400:POKE 65496. 0:CLS: 
END 

199 'SHUFFLE CARDS 

200 FOR X-l TO 52:U(X)=0:NEXT X 
210 X=RND(-TIMER) 

220 FOR X=l TO 52 

230 Y-RND(52):IF U(Y)<>0 THEN 23 



240 U(Y)-1:C(X)-Y 

245 NEXT X 

250 RETURN 

299 'SET UP CARD ARRAYS 

300 P-l 

310 FOR X-l TO 6: FOR Y-l TO 6 

320 G(X.Y)-C(P) 

325 P-P+l 

330 NEXT Y.X 

340 FOR X-l TO 15 

350 S(X)-C(X+36) 

360 NEXT X 

370 P(l)-C(52) 

372 FOR X-l TO 6:R( X)-6:NEXT X 

374 Z=15:O=l:CL-36:O-0 

380 RETURN 

399 'SET UP SCREEN 

400 HC0I0R 4.8:HCIS 

410 FOR X=l TO 6: FOR Y-l TO 6 
420 C-G(X.Y):G0SUB 700 
430 NEXT Y. X 



440 X-2:Y-17:C-78:GOSUB 700 
450 X=5:Y-17:C=P(1):G0SUB 700 
455 GOSUB 900 
460 RETURN 

499 'PLAY GAME 

500 V-l 

510 H-V*40+17:HDRAW"C2BM-H; .112X 

A$;" 

520 Q$-INKEY$:IF OS-"" THEN 520 

530 HDRAW"C8BM=H;.112XA$;" 

540 IF Q$-CHR$(8) THEN V-V - 1 : I F 

V<1 THEN V-6 

550 IF Qt-CHR$(9) THEN V-V+l : I F 

V>6 THEN V-l 

560 IF Q$-CHR$(32) THEN GOSUB 10 

00 

570 IF Q$-CHR$(13) THEN GOSUB 11 

00 

580 IF Q$-"Q" THEN 650 

585 IF Q$-"0" THEN GOSUB 2600 

590 IF CL-0 THEN GOSUB 2200:GOTO 

650 
592 IF Z-0 THEN GOSUB 1300: IF NO 
T(CM) THEN GOSUB 2300:GOTO 650 
600 GOTO 510 
650 RETURN 

699 'PUT CARD ON SCREEN 

700 HPUT(X*40-l.Y*8-2)-(X*40+33. 
Y+8+52),(INT(C/14)+l) 

710 CC-C 

712 IF CC>52 THEN 750 

715 IF CC<27 THEN HCOLOR 3 ELSE 

HCOLOR 8 

720 GOSUB 800 

730 IF CC-1 THEN C$-"A" ELSE IF 

CC<10 THEN C$-RIGHTJ(STR$(CC).l) 
ELSE IF CC-10 THEN C$-"10" ELSE 
IF CC-11 THEN C$-"J" ELSE IF CC 

-12 THEN C$="Q" ELSE C$-"K" 

740 HPRINT(X*5.Y).C$ 

750 RETURN 

799 'GET CARD VALUE 

800 IF CC>13 THEN CC-CC-13:G0T0 
800 

810 RETURN 

899 'PRINT CARDS LEFT IN DECK 

900 HCOLOR5:HLINE(88.176)-(104.1 
84).PSET,BF 

910 HC0L0R7:IF Z>9 THEN HPRINTU 
0.22J.Z ELSE HPRINT(11.22)."0"+R 
IGHT$(STR$(Z).l) 
920 RETURN 

999 'GET CARD OFF DECK 

1000 IF Z-0 THEN 1030 
1005 U-Q+1:P(Q)-S(Z) 

1010 X-5:Y=17:C-P(0):G0SUB 700 
1020 Z-Z-l.-IF Z-0 THEN X-2:Y-17: 
C-65:G0SUB 700 ELSE GOSUB 900 
1025 0-0+1:0(01-0 
1027 PLAY"O3L100C" 



1030 RETURN 

1099 'PLAY CARD FROM GRID 

1100 IF R(V)-0 THEN 1210 
1110 CC-P(O): GOSUB 800:QQ-CC 
1120 CC=G(V.R(V)):GOSUB 800 
1130 IF QQ-13 THEN GOSUB 1600:GO 
TO 1210 

1140 IF NOT(CC-0Q^l OR CC-QO-1) 

THEN GOSUB 1700:GOTO 1210 

1150 X=V:Y=R(V):C=65: GOSUB 700 

1160 0-Q+l:P(Q)-G(V.R(V)):R(V)-R 

(V)-l 

1170 IF R(V)>0 THEN X=V:Y=R(V):C 

=G(V.R(V)):G0SUB 700 

1180 X=5:Y=17:C=P(Q):G0SU8 700 

1185 0=0+1:0(0)-V 

1190 PLAY"O2L100ABDC" 

1200 CL-CL-1 

1210 RETURN 

1299 'CHECK FOR LEGAL MOVES 

1300 CM-0 

1310 CC=P(0):GOSUB 800:QO=CC 

1320 IF 00=13 THEN 1370 

1330 FOR X-l TO 6 

1335 IF R(X)-0 THEN 1360 

1340 CC-G(X.R(X)):G0SUB 800 

1350 IF CC-0Q+1 OR CC-OQ-1 THEN 

CM— 1 

1360 NEXT X 

1370 RETURN 

1399 'SET COLORS 

1400 IF MN THEN RGB ELSE CMP 
1410 RETURN 

1499 'SET COLORS TO BLACK 

1500 FOR X-0 TO 8:PALETTE X.0:NE 
XT X 

1510 RETURN 

1599 'PLAY ON KING MESSAGE 

1600 HCOLOR 3:HPRINT(6,15),"Can' 
t play a card on a King." 

1610 PLAY"L100O2ECECECECECCCECEC 

P8" 

1620 HLINE(48.120)-(272.128).PRE 

SET.BF 

1630 RETURN 

1699 'ILLEGAL MOVE MESSAGE 

1700 HCOLOR 3:HPRINT(13.15)."I11 
egal Move." 

1710 PLAY"L100O1CACACACACACACACA 

CP8" 

1720 HLINE(104,120)-(208.128),PR 

ESET.BF 

1730 RETURN 

1799 'DRAW CARD TEMPLATES 

1800 HCOLOR 8.4:HSCREEN 2 
1810 FOR X-l TO 6 

1820 HBUFF X.993 

1830 HLINE(6.7)-(42.61).PSET.B 

1840 ON X GOSUB 1900.1930.1960.1 

990.2020.2040 

1850 HGET(6.7)-(40.61),X 

1860 HCLS 

1870 NEXT X 

1880 A$-"U10NF5G5" 

1890 RETURN 

1900 HDRAWC3BM23.38H5U2ER2F2E2R 

2FD2G5C8" 

1910 HPA1NI(22.36),3.3 

1920 RETURN 

1930 HDRAWC3BM23.38H5E5F5G5C8" 

1940 HPAINT(22.36).3.3 

1950 RETURN 

1960 HDRAW"BM23,38LU3G2H2E2R2H2E 

3F3G2R2F2G2H2D3L" 

1970 HPAINT(23.36).8.8 

1980 RETURN 



1990 FDRAWBM23.38LU3G2L2U4E5F5D 

4L2H2D3L" 

2000 HPAINT(23.36).8.8 

2010 RETURN 

2020 HPAINT(22,36).8.8 

2030 RETURN 

2040 HPAINT(23,42),5,8 

2050 FOR Y-3 TO 15 STEP 3 

2060 HC:RCLE(24.42).Y.0.1..5.0 

2070 NEXT Y 

2080 HCOLOR 

2090 HL:NE(8.43)-(38.43).PSET 

2100 FOR Y-0 TO 3:HPAINT(24-(Y*3 

+4).42).Y.0:HCIRCLE(24.42).Y*3+3 

.Y,1,.5.0:NFXT Y 

2110 HCIRCLE(24.42).15.5 

2120 HCOLOR 5: HLINEI8.43)- (38.43 

).PSET 

2130 HCIRCLE(24.20).4.1:HPAINT(2 

3. 20). 1.1 

2140 HCOLOR 7:F0R Y-l TO 2:HLINE 

(6+Y.7+Y)-(42-Y,61-Y).PSET.B:NEX 

T Y 

2150 RETURN 

2199 "WIN MESSAGE 

2200 HCOLOR 1 :HPRTNT(11 .14). "We 
Have a Winner! I" 

2210 PLAY"02L8G#GF#GG#GF#P8D#DC# 
D0#DC#P8C#D#F#P8C#D#F#PBF#GG#A#B 
P2553P255B" 
2220 RETURN 

2299 'LOSE MESSAGE 

2300 HCOLOR 3:HPRINT(9.14)."No m 
oves,"+STR$(CL)+" cards left." 
2310 PLAY"01L4EDL2C" 

2320 RETURN 

2399 'TITLE SCREFN 

2400 HCOLOR 4,8:HCLS 

2410 Q$-"C3D50R10E10U30H10L10BR4 

5BD10C2NF10G10D10ND30R20NU10D30B 

R15BU40C1ND50R10F10G10NL10M+10.+ 

30BR15BU40C6ND50M+20.+50U50BR35B 

U10C7R10NR10D50NL10R10BR15BU60C5 

R10N310D60BR2bBU60C0D40BD5D5" 

2420 FOR X-l TO 5 

2430 H-40+X : V-10+X: HDRAW'BM-H ; ,- 

V:XQ$:" 

2440 NEXT X 

2450 HCOLOR 4 : HPRINT( 14 . 13) . "A C 

ard Puzzle" 

2460 HPRINT(8.18),"By Kenneth Re 

ighard, Jr." 

2470 HPRINTU3. 23). "Copyright 19 

92" 

2480 RETURN 

2499 'THEME MUSIC 

2500 FOR X-l TO 17 

2510 PLAY"02T-X:L4F#GG#" 

2520 NEXT 

2530 PLAY"T2L2G" 

2540 RETURN 

2599 'OOPS ROUTINE 

2600 IF 0=0 THEN 2650 

2610 IF O(O)-0 THEN Z=Z+1:Q=Q-1: 

IF Z-l THEN X-2:Y-17:C=78:G0SUB 

700:GOSUB 900:GOTO 2630 ELSE GOS 

UB 900:GOTO 2630 

2620 R(0(0))-R(0(0))+1:0-Q-1:X-0 

(0):Y-R(0(0)):C-G(0(0).R(0(0))): 

GOSUB 700:CL-CL+1 

2630 X-5:Y-17:C-P(0):G0SUB 700 

2640 0-0-1 

2645 PLAY"L100O1BD" 

2650 RETURN 
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revent Monitor Burn-in 
by Frank D'Urso 



I you've ever written ;i program thai 
uses INKEY$ (or any similar proce- 
dure) 10 pause for user inpul. Ihis 
utility is For you. While the computer 
is wailing, your monitor or television 
is burning ever onward. A screen saver 
is designed to either blank the screen 
or display moving graphics in an at- 
tempt to Keep the screen image from 
being burned onto the inside of the 
monitor. My version, which lor the 
sake of simplicity I call Screen Saver, 
gives you moving graphics along with 
musical tones. Even il ynudecidenott0u.se 
it to save your monitor, it's fun to watch the 
promam do its work. 

Screen Saver is designed 10 relieve vour 



Screen Saver is designed 10 relieve your 
monitor as well as your eyes and cars 
Updating previous graphics screen ideas. 
I've linked sounds to match the x and \ 
coordinates ol a series of lines thai move in 
a "three -dimensional" spate. The lines begin 
ai the topol the screen and flutter. Iw ist and 
bounce around the monitor across a black 
background. After every 411(1 or so lines 
appear the color used to draw them is 
changed. 

Screen Saver can be run as a stand alone 
program, or II can be incorporated as a 



subroutine from iNPUT-type statements in 
\onr bask ereal ions. To see the prog ram in 
action, first enter ii as shown and save it to 
tape or disk. Then run it and enjoy. 

The program uses the high-speed poke 
(Line 80) for operation. If you press 
BREAK, Line 80 has also set up a "trap" to 
send the program to Line 390 w here normal 
speed is restored. If the program crashes. 
enter either POKE 65496.0 or RUN 390 to 
slow the computer Never try to save or load 
programs while the C0C0 is in the high- 
speed mode. 

Screen Saver is fun to watch and listen 
to. I hope il adds to your enjoyment and 
becomes a uselul part ol your own pro 
cramming efforts 



Frank D'Urso lias a degree ^communi- 
cations Irom Northeastern University and 
is currently pursuing a masters in govern 
meni at Harvard. He has worked in adver 
lising. and he enjoys art. music and com- 
puter games. Frank may be contacted at 38 
Wesilord St.. Saimus." MA ()|0()6. (617) 
666-2137. Please include an SASE when 
requesting a reph 



The Listing: ssaver 

1 'SCREEN SAVER 

2 'BY FRANK D7URS0 

3 'COPYRIGHT (CI 1992 

4 'BY FALS0FT. INC. 

5 'RAINBOW MAGAZINE 
70 A=8 

80 PALETTE RGB: POKE 65497,8 

EEN2:HCISA:0N BRK GOTO 390 

90 X=RND(2) 

100 D=RND(3) 

110 B-RND(3) 

120 0-RND(3) 

130 Z=RND(7) 

140 Z=Z+1 

150 IF Z>8 THEN Z=Z*0 

160 FOR Y=l TO 400 

170 B-B+l : S-S+ . 1 : D-D+Q 

160 IF B>250 THEN B=B-3 

190 Y-Y+l 

200 HCOLOR Z 



210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
M$ 
340 
350 
360 
370 
380 
390 



I c B>250 THEN B=B+1 

IF D>180 THEN Q-0-2 

IF D<5 THEN Q-Q+2 

IF B<5 THEN B=B+2 

X-(SIN(S)*160)+160 

IF X<1 THEN X=X+2 

I- D<1 THEN 0=D+2 

IF B<1 THEN B-B+2 

HL1NE<X.D>-(D.B).PSET 

M=250-D 

N=250-B 

IF M<1 THEN M-M+10 

IF N<1 THEN N-N+10 

SOUNO M.l 

SOUND N.l 

NFXT Y 

X=X*0:B=B/20 

GOTO140 

POKE 65496. 0:CLS0:END 



t^\ 



Product Review 

The MM/1 Technical 
Reference Manual 

The MM/1 Technical Reference Manual 
consists of ninety-one 6-by-8'/i pages in a 
looseleaf binder. It was written by Mark 
Griffith and Carl Kreider, two program- 
mers with a great deal of experience (and no 
little renown) in the OS-9 world. As a 
technical guide to the MM/1 68000-based 
computer, does the manual live up to the 
standards one expects of this team? Well, 
yes . . . and no. Let's look at the no side first. 

The MM/1 Technical Reference Manual 
lacks many of the components often con- 
sidered essential in a reference intended for 
technicians who are expected to repair or 
upgrade a modern microcomputer. There 
are no complete parts lists, no complete 
schematics and no diagnostic code refer- 
ence (though a call to Interactive Media 
Systems confirmed that the ROMs do sup- 
ply diagnostic codes to the technician). 

From a production aspect, there are a 
few irritating problems. Pages iii and iv in 
the Table of Contents cover only seven of 
1 5 chapters . Pages i and ii do not exist in the 
copy I received, leaving me to wonder just 
what was left out. In addition, some pages 



exhibit reproduction problems, which would 
ordinarily be simply annoying. However, 
the edges of some of the partial schematics 
wander close to the edges of the pages, 
some labels have been "truncated" (a nice 
word for cut off)- In certain places, cross 
references and tables are not where the 
book indicates. Finally, some of the infor- 
mation provided in the MM/1 Technical 
Reference Manual is out of date, left behind 
by rapid changes in the drivers and descrip- 
tors during this powerhouse machine's 
infancy. 

What is in the MM/1 Technical Refer- 
ence Manual? The manual contains a lot of 
information useful to programmers. For 
instance. Chapter 3 provides a discussion of 
the MM/1 memory maps. That's right, maps 
is plural. The MM/1 has separate memory 
maps for the one-, three- and nine-mega- 
byte systems. 

Chapter 1 2 supplies a fairly comprehen- 
sive table of jumper settings. The only 
problem here is that, while it tells you 
which jumper does what, the manual fails 
to describe which features the various 
jumper settings select, leaving this as an 
exercise for the technician. 

Chapters 6 and 7 discuss the MM/1 SCSI 
system, and the use of SCSI hard drives, 
respectively. Chapter 6 is not a complete 
guide to pr ogramming a SCSI driver, but it 



does provide enough information to give 
the user an understanding of the MM/1 
SCSI driver system. Chapter 7 is a very 
informative discussion of how to add new 
hard drives to the MM/1 . Floppy drives are 
thoroughly discussed in Chapter 8, as is the 
use of dtnode to change disk formats. 

In my opinion, the meat of the MM/1 
Technical Reference Manual is in chapters 
9 and 10, which explain the characteristics 
of the MM/1 's I/O chips. The information 
given here does not represent a complete 
guide to the chips in general (the text ex- 
plains that this is due to the increased 
complexity of the LSI devices used in the 
MM/1). Rather, these chapters outline those 
features specific to the MM/1. Here you 
will find the addresses of those registers 
and ports actually used in the MM/1 sys- 
tem. These chapters offer some useful hints 
on such items as how to detemvine the status 
of the CD line and how to toggle keyboard 
and floppy-drive interrupts. 

While chapters 9 and 10 do not disclose 
complete technical data on every chip in the 
MM/1, Chapter 15 supplies you with ad- 
dresses where you can obtain complete 
manuals for each chip. My online sources 
tell me the volume of data available from 
the companies listed in Chapter 15 (espe- 
cially Signetics) is nothing short of phe- 
nomenal! 



How does the MM/1 Technical Refer- 
ence Manual compare with other technical 
manuals? To answer this question, I asked 
several technicians for their opinions. MS- 
DOS support personnel raved about the 
layout of the manual and called it ' 'Superb 
... an outstanding manual that is easy to 
read." Technicians who work with periph- 
eral equipment and Unix systems were less 
happy, stating that the lack of schematics, 
parts lists and diagnostic-code references 
made the manual more suitable for pro- 
grammers than for hardware repair sites. 

Even for the price of $49.95, the MM/1 
Technical Reference Manual forms a price- 
less source of data for software developers 
striving to cany on the traditions founded 
by the CoCo Community. (Interactive 
Media Systems, 1840 Biltmore St. NW, 
Washington, D.C. 20009; $49.95.) 

— David M. Graham 
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& I have a 128K CoCo 3 with an FD-502 disk drive. 
a DMP- 1 06 primer and a color TV. I would like io hear 
from pen pals between die ages of 8 and 12. bul I will 
write lo people of all ages. 

Kevin Smith 

1958 Washington Avenue 

Portland, ME 04103 



CALIFORNIA 

•B StG Net West. Alan Shcltra. P.O. Box 38713. 
Hollywood. 90038. (818) 761-4135, BBS (818) 761- 
4721 

COLORADO 
^ Colorado Springs Color Computer Club. Bud Ward. 
1 1 18 Claiborne Road. Colorado Springs. 80906-5513, 
(719)392-8268 



CONNECTICUT 

D Connecticut CoConut Connection. Charles Joseph 
Scanlon. 2 Eagle Lane, Simsbury. 06070. (203) 657- 
8373 

FLORIDA 
' The Color Computer 3 Users Group, Tom Batch- 
elder. 6042 Syrcle Ave.. Milton, 32570, (904) 623- 
4405 

GEORGIA 
• Atlanta Computer Society, Inc., Alan R. Dages, 
4290 Bells Ferry Road Suite 10639, Kennesaw, 30144, 
(404) 469-51 1 1 voice, (404) 636-2991 modem 

IDAHO 
» Snake River Color Computer Club. Emil Franklin, 
1750 Caimel Drive. Idaho Falls, 83403. (208) 522- 
0220 

ILLINOIS 
B Cook County Color Computer Club. Howard 
Luckey. 10 McCarthy Rd.. Park Forest. 60466-2122. 
(708)747-0117 

** Motorola MicroComputerClub. Steve Adlcr. 1301 
East Algonquin Rd.. Shaumburg, 60196. (708) 576- 
3044 

IOWA 
B Metro Area Color Computer Club. Joe Cavallaro. 
2425 Ave A. Co. Bluffs. 51501. (712) 322-2438 
"" Mid Iowa & Country CoCo, Terry Simons, 1328 
48lh Street. Des Moines. 5031 1, (515) 279-2576 

KENTUCKY 
« Hardin County Color Computer Club, Paul Ur- 
bahns. 2887 Republic Ave.. Radcliff, 40160. (502) 
35 1 -4757 

LOUISIANA 
» The CoCo SIG. Christopher Maycux. 20 Gibbs 
Drive. Chalmette. 70043. (504) 277-6880 voice. (504) 
277-5135 modem 

MARYLAND 
B Arkade, John M. Beck. 3513 Terrace Drive #D. 
Suitland, 20746. (30 1 ) 423-841 8 

MASSACHUSETTS 
s NorthEast CoCo Club. Jose Joubcrt. 440 North 
Ave , Bids. 9 #2 1 0. Haverhill, 1 830. (508) 52 1 -01 64 

MICHIGAN 



"& Color Computer Owners Group, Bernard A. Pat- 
Ion. 388 Emmons Blvd., Wyandote, 48192, (313) 
283-2474 

* Greater Lansing Color Computer Users Group, E. 
Dale Knepper. P.O. Box 14114. Lansing. 48901. 
(517)626-6917 

MISSISSIPPI 
» Mississippi OS-9 User Group, Boisy G. Pitre, 
Southern Station, Box 8455, Hattiesburg. 39406-8455. 
(601)266-2807 

MISSOURI 
» CoCoNuts User Group, Clyde Lloyd. 2116 N. 
Columbia, Springfield, 65803, (417) 866-8738 
« KC CoCo, Gay Crawford. P.O. Box 520084. Inde- 
pendence. 64052, (913) 764-9413 
NEBRASKA 
» Bruce Gersl c/o Metro Area CoCo Cluh, P.O. Box 
3422, Omaha. 68103 

NEW YORK 
** Eric County Color Computer Club, John A. Lom- 
bardo, 57 Chapel Ave.. Cheekiowaga, 14225 

NORTH CAROLINA 
» Raleigh CoCo Cluh, P.O. Box 10632, Raleigh. 
27605.(919)878-3865 

^ The Tandy Color Computer Users of Charlotte. 
Eric Stringer, 1022 Nolcs Dr.. Mt. Holly. 28120 

OHIO 
» The Greater Toledo Color Computer Club. Bill 
Espen. 1319 North St.. Bowling Green. 43402, (419) 
471-9444 

® Tri-County Computer Users Group. Ron Potter. 
10914 Oliver Road. Cleveland. 441 1 1. (216) 476- 
2687 

PENNSYLVANIA 
^ Cumberland Valley Users Group. Thomas Martin. 
9085 Newburg Road. Newburg. 17240, (717) 423- 
5525 

RHODE ISLAND 
51 New England "CoCoNuts" Color Computer Club. 
Arthur J. Mcndonca. P.O. Box 28106 North Station. 
Providence. 02908. (401 ) 272-5096 (Sig3) 

SOUTH CAROLINA 
» Spartanburg CoCo Club. Jesse W. Parris. 1 52 Bon 



Air Ave.. Spartanburg, 29303, (803) 573-9881 

SOUTH DAKOTA 
w Empire Area Color Computer Users Group of 
South Dakota. Carl Holt. P.O. Box 395. Brandon. 
57005. (605) 582-3862 

TEXAS 
« The Codis CoCo Symphony, William C. Garret- 
son, 2902 Harvard St., Irving, 75062, (214) 570-0823 

UTAH 
•b Salt City CoCo Club, L. Todd Knudsen, 6357 S. 
Lotus Way, West Jordan, 84084, (801 ) 968-8668 

WASHINGTON 
*r Bell ingham OS-9 Users Group, Rodger Alexander. 
3404 Illinois Lane, Bcllingham, 98226, (206) 734- 
5806 

^ Port O' CoCo. Donald Zimmerman. 3046 Banner 
Rd. SE. Port Orchard, 98366-8810, (206) 871-6535 

AUSTRALIA 
® Australian National OS-9 Users Group. Gordon 
Bcnt7.cn. C/- 8 Odin Street. Sunnybank. Queensland. 
4109.(07)344-3881 

B Brisbane Southwest Colour Computer Users Group. 
Bob Devries. 21 Virgo St.. Inala. Queensland. 4077. 
(07)372-7816 

CANADA 
* Club d'Oridinateur Coulcur du Quebec Inc.. 8<XX) 
Metropolitan] est. Aujou. Quebec. H1K I Al. (514) 
354-4941 

GERMANY 
« OS-9 Users Group in Europe. Burghard Kin/el, 
Leipziger Ring 22A, 5042 ERFTSTADT, -49-2235- 
41069. (OS-9/6809) 

THE NETHERLANDS 
"B European OS-9 User Group. Peter Tutclacrs. 
Strijpcrstraat 50A, 5595 GD Lccride. 
s88405777(®hsepml.hsc.nl. +31-4906-1971. (OSK) 

PUERTO RICO 
» Puerto Rico Color Computer Club, l.uis R. Marti- 
nez. P.O. Box 2072. Guaynabo. 00657-7004. (809) 
799-8217 or (809) 728-2314 




BBS's 










State/City 


BBS Name 


Access Number 


Parameters 
(Speed-Farity-Word Bits-Stop Kits! 


SysOp 


Arkansas 










Sheridan 


The Grant County BBS 


(501)942 4047 


300/1 200/2400- V8-1 


Eddie Gilmore 


California 










Hollywood 


Zog's Cavern BBS 


(213)461-7948 


300/1 200/2400-N-8-1 


Alan Sheltra 


Connecticut 










Manchester 


Silk City BBS 


(203) 649-9057 


300/1 200/2400-N-8-1 


Darren Kindbcrg 


Waterbury 


Applause BBS 


(203) 754-9598 


300/1 200/2400-N-8-1 


Carmen Izzi. Jr. 


Hawaii 










Ft. Shatter 


CoCo'Nuls BBS Service 


(808) 845-7054 


300/1200/2400-N-8-1 


Tommie Taylor 


Idaho 










Idaho Falls 


Snake River Computer Club BBS 1 


(208) 523-3796 


300/I200-N-8-I 


Jon Gould 


Illinois 










Carpentersville 


The Pinball Haven BBS 


(708) 428-8445 


300/1200/2400-N-8-I 


Jeffrey R. Cbapin 


Elmhurst 


Glcnsidc's Cup of CoCo BBS 


(708) 428-0436 


300/1 200/2400-N-8-1 


Tony Podraia 


Kentucky 










Elkhom City 


Cross-N-Crown BBS 


(606) 754-9420 


30O/240O-N-8-I 


Tim Mcintosh 


Michigan 










Manistee 


Crystal Palace 


(616)723-0146 


1200/2400-N-8-1 


Nelson Howard 


Mississippi 










Hattiesburg 


The OS-9 Zone ; 


(601)266-2807 


300/I200/2400-N-8-I 


Boisy G. Pitre 


New York 










Erie County CoCo CI 


ib 


(716)649-1368 


300/1 200/2400-N-8-1 


Wayne Mullen 


Wappingers Falls 


The Dutchess CoCo 


(914)838-1261 


300/I200/2400-N-8-1 


Chris Serino 


North Carolina 










Wilmington 


Bill's Board 


(919)395-4366 


300/1 200/2400-N-8-1 


Bill Medcalf 


North Dakota 










Miriol AFB 
Ohio 

Columbus 


The 9-Line BBS 


(701)727-6826 


300/1 200-N-8-1 


David Hensley 


Springwood BBS 


(614)228-7371 


300/1200/2400-N-8-1 


Edward Langcnback 


Pennsylvania 










Conshohocken 


Charlie's Help Line 


(215)825-3226 


300/1 200-N-8-1 orN-7-1 


Charles DiMartino 


Rhode Island 










Central Falls 


The Weather Connection U BBS 


(401)728-8709 


300/1 2O0/24O0-N-8-1 


Eric Chew 


Virginia 










Fall Mills 


Clem's Corner BBS 1 


(703) 322-4053 


300/1 200-N-8-1 


Richard Douglas Bailey 


Washington 










Fircrest 


OS-9 Tacoma 


(206) 566-8857 


300/1 200/2400-N-8-1 


Chris Johnson 


Wisconsin 










Marinette 


Phoenix Interstate Data Systems* 


(715)732-1036 


300/1 200/2400/9600-N-8- 1 


Joe Boburka 


Canada 










Twillingate. NF, 


ColorNET BBS 


(709)884-2176 


300-N-8-1 


Jason Woodford 


Windsor. Ontario 


Color Connection 


(519)948-1879 


300/1 200-N-8-1 


Cory Richer! 



Notes: 

'Snake River Computer Club BBS supports all types of computers. 

-The OS-9 Zone is up from 10 p.m. to 6 a.m. seven days a week. 

'Clem's Corner BBS is up from 6 p.m. to 1 1 p.m. seven days a week. 

'Phoenix Interstate Data Systems has a .75/hr charge for premium services, paid i 
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SEnd Packing 
/ recently was examining a favorite 
CoCo utility called BOOT . BAS, which 
<ys a directory on the screen and al- 
lows me to use the arrow keys to select a 
program. It then runs that program when I 
press ENTER. At first glance the program is 
simple, hut closer study reveals that a 
machine-language program is hidden in- 
side the BASIC program. It took me a lot of 
sleuthing to figure out how the machine- 
language program was hidden, hut I even- 
tually figured it out: It is located at the end 
of the BASIC program. The author stored it 
just after the last statement in the BASIC 
program, manually changed the end-of- 
BASIC program pointer (located at &H001C 
and &II001D) to point beyond the end of 
the machine-language program, then saved 
the whole program to disk. The result is a 
BASIC program that pulls into memory a 
machine-language program any time it was 
loaded. Do you know who wrote this pro- 
gram? Weren't you associated with it at 
one time? 

George Quellhoerst 
Bainsville, Ohio 

A Yes, I was involved in distributing 
that program many years ago. It was 
written by my good friend Peter Ryan 
(N6LQV), author of WEFAX, RTTY and 
Graphicom. The technique used is what I 
call "end packing" since the machine-lan- 
guage program is packed between the end 
of the BASIC program and the end-of-pro- 
gram pointer. This is a convenient way to 
Bring a machine-language routine into 
memory when it is associated with a BASIC 

Erogram. There was never any intent to 
ide what was going on. but the technique 
is sufficiently tricky that it can appearcryp- 
tic if you are not familiar with it. Indeed, 
this technique was once employed by vari- 
ous CoCo software-protection schemes in 
an effort to slow those who would attempt 
to figure out the protection. 

One curious thing about end-packed 
programs is that they often can't be uploaded 
or downloaded properly with Xmodem. A 
far more common approach to include a 
machine-language program with a BASIC 
progratu is to have the BASIC program poke 
the machine-language program into mem- 
ory from data statements. This approach 
has the advantage of being amenable to 
transfers overa modem, and it is a lot easier 
to understand. However, it is slow and 
causes the machine-language program to 
take up more room than it would if it were 
end-packed. 



^^. Replacement Chips 

^^fc Where can I t>et replacement chips 
yB^for the 5 1 2K upgrade, the FD-502 
disk controller (or older-model control- 
lers), the Radio Shack Multi-Pak Interface, 
the Orion Telepak and the Burke & Burke 
CoCo-XT real-time clock? 

Greg Morgan (AIRW0LF2) 
Richmond, Virginia 

A The 5 1 2K upgrade board uses sixteen 
41256 (120- or 150-ns) dynamic RAM 
chips. These are widely available for be- 
tween 50 cents and a dollar apiece from 
most chip suppliers. (Microprocessors 
Unlimited in Beggs, Oklahoma, is often a 
good source of memory chips.) 

Later-model CoCo disk controllers, 
including, the FD-502, typically use eithera 
28-pin 1773 controller chip. Earlier con- 
trollers usually use a 1 793, 5-volt-only, 40- 



pin controller chip. These have not been 
made for a long time and can be quite hard 
to locate. (I can't help you there.) All the 
other chips (except the 8-pin data separator 
in controllers using the 1793-chip) arc 
generic small-scale logic chips and are 
available from any standard chip supplier, 
such as JDR in San Jose, California. 

Like those in the controllers, all the 
chips in the 26-3024 Multi-Pak Interface 
are standard TTL logic chips. The newer, 
smaller 26-3124 model Multi-Pak Inter- 
face uses one 64-pin ASIC (Application 
Specific Integrated Circuit), which was 
custom made for Tandy and is, I suspect, no 
longer available. However, the rest of the 
chips in that unit are standard TTL logic 
chips. As a side note, in most cases of adead 
Multi-Pak, the ASIC chip is not what is 
affected. Rather the buffer chips are what 
get fried. These buffer chips are 35-cent 
generic TTL chips, available from JDR and 
most other chip vendors. 

The Orion Telepak and other RS-232 

f >acks use the 6551 A ACIA (which I be- 
ieve is available from JDR) and one or two 
level-converter chips and logic chips. Some 
models of the Orion Telepak" and the Tandy 
RS-232 Pak may have used a DC-to-DC 
voltage inverter lo create +12 and -1 2-volt 
sources from a single +5-volt source. This 
module may be hard to find (at least in small 
quantities) since it is not a commonly used 
part. If the inverter does die (this is trivial to 
check: feed it +5 volts and see if it delivers 
the required +12 and -12 volts), you can 
power the level-converter chips directly 
from the +12 and -1 2-volt lines in the Multi- 
Pak Interlace. Alternatively, use a MAX 
232 or 233 level converter, both of which 
have internal DC-to-DC voltage-conver- 
sion circuitry. Of course, this would require 
extensive rewiring. 

Consult Burke & Burke regarding a spare 
real-time clock chip. I believe the real-time 
clock uses a commonly available OKI brand 
real-time clock chip. 

By the way, unless you have a back- 
ground in electronics or a great deal of 
experience, random replacement of chips 
in a dead device is not likely to result in a 
fix. And if it does, it certainly isn't likely to 
happen in a timely or economic fashion. 

^^ Bit Banging 

£fc Is there a way to use the 4-pin printer 
^K^ port on the CoCo under OS-9 with a 
modem and an OS-9 telecommunications 
program ? 

Alain Pilon (APILON) 

Brossard, Quebec 

Canada 

A Because driving the 4-pin "bit-banger" 
serial port on the CoCo eats up so 
much processor time, other OS-9 tasks come 
to a screeching halt. There is available on 
Delphi a driver for the port that some say 
enables the computer to be used at 1 200 bps 
with a modem (as long as you make a 
custom cable that feeds the receive-data 
line into an interrupt line on the port). Even 
then, operation is likely to be unreliable, 
and you won ' t be able to run much else than 
your terminal program while this driver is 
in use. So, while it is possible to use the bit- 
bangcr port for modem communications, it 
is not advisable. If you are using OS-9, you 
really need a hardware RS-232 pack for 
reliable OS-9 modem communication. 

^^ Which Hard Drive Is It? 

^|R / have a Quantum drive ilia! bears a 
^^X model number that appears to be 



Do You Rest 
Easy at Night? 




THE RAINBOW is the only publication that offers peace of mind to CoCo 
users. Members of the CoCo Community have always looked to THE RAIN- 
BOW for comfort — hints, tips, the latest news and communication with 
others — for their Tandy Color Computers. 

THE RAINBOW continues to serve and support CoCo users, from 
beginners to the advanced, by covering the wide variety of topics affecting 
the CoCo Community. Looking for games? Telecommunications pack- 
ages? Finance programs? Interested in helpful utilities? Hands-on hard- 
ware projects? Want to take the guesswork out of buying software and 
hardware? From Disk BASIC to OS-9, THE RAINBOW has the answers to 
all your CoCo questions. 

Get rid of your nightmares by renewing your subscription today. THE 
RAINBOW — the best security blanket for a good night's rest. 



Use our 800 number! 

For credit card orders, you may phone in your subscription. Our credit 
card order number is (800) 847-0309, 9 a.m. to 5 p.m. EST. We accept VISA, 
MasterCard and American Express. All other inquiries call (502) 228-4492. 



Yes! Please send me RAINBOW Magazine. 
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_i New J Renew (attach label) 
_I One Year $31 — 35% off cover price 
□ Two Year $58 — 39% off cover price 
J One Year $79 — 44% off cover price 

Which Tandy Color Computer do you use? 
□ CoCo 1 □ CoCo 2 □ CoCo 3 



Address 
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State 



ZIP 



□ My check in the amount of is enclosed. 

Charge to: □ VISA □ MasterCard CI American Express 
Account Number 



Expiration Date 



Signature 



Subscriptions to THE RAINBOW are $31 a year in the United States. Canadian rate is 
$38 plus 7% GST (U.S. funds only). Surface rate elsewhere is $68 (U.S.). Non-U.S. 
subscribers must inquire about multi-year discount. Airmail is $103 (U.S.). Kentucky 
residents add 6% sales tax. All subscriptions begin with the current issue. Please allow 
6 to 8 weeks for the first copy. In order to hold down non-editorial costs, we do not bill. 

For credit card orders, call (800) 847-0309, 9 a.m. to 5 p.m. EST. All other inquiries 
call (502) 228-4492. 
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Save Money Too! 

Subscribe to these convenient services and receive each month's programs in a ready-to- 
run form. No more long tedious hours wasted typing! No more red eyes and sore fingers! All 
you do is load and run, using the current issue of THE RAINBOW as documentation. 

OS-9 programs are available too! One side of the RAINBOW ON DISK is formatted for the 
OS-9 operating system (OS-9 programs cannot be put on tape) so you can get all the great pro- 
grams in the magazine. 

A one-year subscription to THE RAINBOW and RAINBOW ON TAPE is only $91 in the U.S.. 
$108 in Canada, $153 foreign surface rate and $188 foreign airmail. 

Aone-year subscription to THE RAINBOW and RAINBOWON DISK is only $1 15 inthe U.S., 
51 38 in Canada, S1 83 foreign surface rate and $218 foreign airmail. U.S. currency only.Back 
issues of both RAINBOW ON TAPE and RAINBOW ON DISK are also available! (see our back 
issue ad in this issue) 

RAINBOW ON TAPE back issues are available beginning with the April 1982 issue. A single 
copy of RAINBOW ON TAPE is S1 within the U.S., $12 in all other countries. The annual sub- 
scription for RAINBOW ON TAPE is S80 within the U.S.; $90 in Canada; and $105 for all other 
countries. U.S. currency only. 

RAINBOW ON DISK back issues are available beginning with the October 1986 issue. A 
single copy of RAINBOW ON DISK is $1 2 within the U.S., $14 in Canada, $16 in all other count- 
ries.The annual subscription for RAINBOW ON DISK is S99 within the U.S.; $115 in Canada; 
and $1 30 for all other countries. U.S. currency only. 



Yes! Sign me up for a joint 1-year subscription (12 issues) to: 

J THE RAINBOW 2 THE RAINBOW 

and Rainbow on Tape and Rainbow on Disk 

J New □ Renewal (attach labels) 
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Zip 



J My check in the amount of is enclosed. 

Charge to: Zl VISA J MasterCard □ American Express 

Account Number 

Expiration Date _ 



Signature 



For credit card orders, call (800) 847-0309, 9 a.m. to 5 p.m. EST. All other inquiries 

call (502) 228-4492. 

* Payment must accompany order; we do not bill. U.S. currency only, please. 

Kentucky residents add 6% sales tax; Canadian residents, 7% GST. Please allow 

6 to 8 weeks for delivery of first copies. All subscriptions begin with the current 

issue. 

Please note : While group purchases ot RAINBOW ON TAPE and RAINBOW ON DISK 

are permitted (and multiple subscriptions are even discounted if purchased in one order 

from a club), no license to make copies is conveyed or implied. Unauthorized copying 

of any copyright proouct is strictly illegal. 



either "QS40" or "QS4C." I have been 
told the drive has a storage capacity of 35 
megabytes. Can it be used with a Color 
Computer? What would I have to get to use 
it with the CoCo? I bought this drive during 
an auction at a local university. 

Joe Villarreal (villareal) 
Lubbuck, Texas 

A The drive you are talking about is 
almost certainly a Quantum Q-540 
drive, which is listed in my references as a 
full-height, 5'/4-inCh, 36-megabyte MFM 
drive. It appears to be an extrmeley ancient 
drive that does not have automatic head 
acceleration and deceleration, but instead 
steps the head at a constant rate causing 
exceedingly slow hard-drive access. Even 
if the drive were brand new, I'd recommend 
thai you not use it. Knowing thai it was used 
in a university environment, where it proba- 
bly received heavy use. I make this recom- 
mendation a fairly strong one. 

The cost of the actual hard drive is usu- 
ally a small fraction of the total cost of a 
hard-drive syslem for Ihe CoCo. With the 
RGB/Ken-Ton system, you'll need to pur- 
chase a host adaptor and cither a SCSI drive 
(support is provided foralimited number of 
types) or a SCSI controller card with the 
proper ROM to drive an MFM drive. With 
the Burke & Burke system, you'll need the 
CoCo-XT adapter and an 8-bit PC-type 
hard-drive controller. Whichever route you 
take, you'll also need cables, a case and 
power supply, and appropriate driver soft- 
ware. The Burke & Burke system requires 
a Multi-Pak Interface or a highly modified 
Y cable is required. The RGB/Ken-Ton 
system is ready-to-run with a Y cable. Unless 
you are buying a new 80-meg or larger 
drive, the hard drive itself is going to ac- 
count for much less than half the total cost 
of the system. 

Televideo Terminals 

M^ I have an old Televideo terminal but 
^B^ no documentation for it. I'm seeking 
help on what functions its various DIP 
switches perform, especially those that set 
the serial-port speed. 

Tony Reed (TONYREED) 

Montreal, Quebec 

Canada 

A In the past I've used a CoCo running 
a terminal program and a null-modem 
cable to identify DIP-switch functions on 
unfamiliar terminals. With the two "termi- 
nals" linked, start varying the serial-port 
speed and other parameters on the CoCo 
unti I you are able to display characters from 
the terminal keyboard on the CoCo screen 
and vice versa. Then, after carefully re- 
cording the positions of all the DIP switches, 
alter the combinations one by one to see if 
the speed changes. Once you have deier •■ 
mined which switches control the speed, 
alter CoCo's speed until you get readable 
characters again. With this approach, it 
usually takes little time to document all the 
settings for the terminal. With a little luck 
and a lot of trial and error, you can use a 
varient of this technique to determine con- 
trol settings for the serial printer port that 
most such terminals include. 

Feature-Rich or Feature-Bloated? 

^^^ Why are PC-compatible programs 
^B^ ( such as terminal programs and word 
processors) so much bigger than their Color 
Computer 3 counterparts? For example, 
PC-compatible word processors are be- 
tween one and five megabytes in size, 
compared to 40K CoCo programs. This is a 
pretty big size difference. What's going on? 
Charles A. Marlow (CHARLESAM) 
Massapequa. New York 

A There are several factors at play here. 
The MS-DOS market is feature- 
driven, and the most common form of 



competing in the market is to pack more 
features into a program, as opposed to 
making the core functions of the program 
function especially quickly or elegantly. 
Thus, MS-DOS programs arc in general 
"feature-bloated" — they have far more 
options and functions (some useful, some 
not) than an equivalent CoCo product. Note 
that by the standards of the PC-compatible 
world, word processors for the CoCo are 
mere "text editors." And PC-compatible 
word processors are, by the standards of a 
few years ago, full-fledged desktop-pub- 
lishing packages. 

Another aspect to consider is that most 
MS-DOS software comes with literally 
hundreds of printer drivers and many aux- 
illiary programs. For example, few (if any) 
MS-DOS word processors don't include a 
spelling checker and thesaurus. All of this 
contributes to the bulk of the package. 

Much MS-DOS software is written in 
higher-level languages and compiled to 
machine code, resulling in much larger 
executable files. In contrast, higher-power 
CoCo applications are usually written in 
assembly language from the start. In one 
sense, CoCo programmers have to be more 
skilled in getting the most out of a machine 
than PC programmers, who can count on 
massively powerful hardware to make up 
for inefficient code. For example, I use 
Professional Write (an "also ran. beginner 
type" package) on my MS-DOS machine. 
This program takes about 30 seconds to 
change the margins on a 20-page document 
on a 12-MHz 286 computer. CoCo word 
processors handle the same job in a second 
or less, due to much tighter code. 

Traditionally the biggest memory hogs 
in MS-DOS software are those programs 
that use graphic user interfaces. Massive 
amounts of memory must be used to store 
icons, fonts, etc. Thus Windows and appli- 
cations for that environment are truly 
enormous. 

Finally, there is one principle that af- 
fects all but the best programmers: Pro- 
grammers tend to write their code to fill up 
and use all available machine resources. 
Thus, as the capacity and speed of comput- 
ers grow, the size and inefficiency of the 
code written for them seems to grow, too. 
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Destructive Removal 

Marty, you've often suggested "destructive 
removal" as a means of cleanly getting the 
68B09E out of a dead CoCo 3. 1 want to add 
a little detail to your instructions: It is 
important to be careful to cut all the pins of 
the chip you are destructively removing 
very close to the body of the chip. This 
leaves more of the pin sticking upfront the 
board, making it easier to grab with needle- 
nosed pliers when removing the pins one- 
by-one during the de soldering phase of the 
operation. 

Lonnie McCiure (LMCCLURE) 
Little Rock, Arkansas 

Thanks for the tip. Lonnie. 



Martin H. Goodman, M.D., a physician 
trained in anesthesiology, is a longtime 
electronics tinkerer and outspoken com- 
mentator — sort of the Howard Cosell of 
the CoCo world. On Delphi, Marty is the 
SIGop of the rainbow's CoCo SIG. His 
non-computer passions include running, 
mountaineering and outdoor photography. 
Marty lives in San Pablo, California. 
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MV-Shell 

e a question concerning a 
'■am which was written by 
Dale Packet! and appeared in 
the. I une and July 1988 issues of THIS RAIN- 
BOW. The program in question is M V-Shel I . 
which runs under Multi-Vue. / have the 
program and I have put together an AIF 
file. When I click on the icon, the program 
loads and, for a second, I get a menu. But 
then the whole thing erases itself and re- 
turns to the Tandy menu. Both the program 
and icon have the attributes set for owner 
execute and public execute. Do you have 
any ideas why this happens? One of the 
things I have tried is to load gf x2, sy sea 1 1 
and in key in memory ahead of time, but 
with no results. A copy of my AIF file is 
included. 

Finally, there are companion programs 
in the November 1988 issue called DoMenu 
cwc/DoAIert. Do these programs need their 
own AIF files to run? if not, how do I 
incorporate these programs into the MV- 
Shell module? 

Ernest Bazzinotti. Jr. 
Dorchester, Massachusetts 

I'm not sure why MV-Shell is aborting. 
It could be related to memory, or perhaps an 
error is being returned from the windowing 
system for some reason. You may want to 
load and run the original source from ba- 
S1C09 to determine if the program is running 
correctly. If it is. you may need to merge it 
with i nkey, gfx2,and syscal 1 . To do this, 
go into the CMOS directory and issue these 
commands: 

rename mvshel 1 .bak 

merge nwshell.bak gfx2 syscal 1 i 

nkey >mvshell 

attr mvshell e pe 

This should considerably reduce the amount 
of overhead involved with loading each 
module individually. 

All applications that run under Multi- 
Vue require an AIF file. In the case of 
DoMenu and DoAlert, you can use the same 
settings as you used for MV-Shell. That is, 
copy aif.mvshe'l to aif.domenu and 
aif.doalert, and change the application 
names from mvshell to domenu and doalert. 



Where's OS-9? 

When I ordered The Complete 
Rainbow Guide to OS-9 and 
The Complete Rainbow Guide 
to OS-9 Level II, Volume 1: A Beginner's 
Guide to Windows, you sort of left me 
hanging. No where in the advertisement 
was there any mention of an OS-9 system 
master and I have never seen it advertised 
in THE rainbow. In fact, I have never seen it 
in any Radio Shack store or even heard of it 
until I got to Page 54 of The Complete 
Rainbow Guide to OS-9 Level II. / would 
also like to know if the OS-9 system master 
and OS-9 Level II Operating System are 
one and the same? 

Robert Cabral 
USNS Kilauea 

The OS-9 Level II operating system is 
currently available through Radio Shack 
Express Order (800-321-3 1 33), although it 
used to be carried in the stores. The OS-9 





Level II system master refers to the master 
disks included in the package, I'm not cer- 
tain, but I believe the current price is S69.95. 
You also need at least a CoCo 3 and one 
disk drive, although 512K and two disk 
drives are highly recommended. As a mat- 
ter of fact, I don't recommend using OS-9 
without the 512K upgrade installed due to 
the extreme memory limitations in a 128K 
system. 



Auto Won't Format 

Enclosed is a copy of my OS-9 
boot disk with the Auto Formal 
program on Page 72 of the 
March 1991 issue. I tried using /dl when 
the program asked which drive, but I still 
received Error 221 . Here are the steps I've 
taken so far: 

copy /dl/cmds/auto /dO/cmds/auto 
attr /dO/cmds/auto 

From my boot disk, I type: 

load auto 
auto 

The program asks to press a key, the disk 
name, number of disks, starting disk num- 
ber and drive number. This is what is on mx 



Formatting disk number 1 as #1 

40 tracks 

2 sides 

You have error 221 in Auto Forma 

tter 

Continue (Y/N)? 

/ could use some help getting this program 
to work. Please see if you can find what I've 
done wrong. 

LI. Day 
Zanesville, Ohio 

I used the version of auto included on 
your disk, and it worked fine. I also com- 
pared the version of auto on your disk with 
my master and confirmed the packed tiles 
are the same. But it ju.st occurred to me at 
the last minute that you probably do not 
have the /nil driver (nildrv.dr and 
ni 1 .rid) since ihose files are included with 
OS-9 Development System. It can be a pain 
trying to remember which files arc included 
with OS-9 Level II and which are included 
with Multi-Vue and OS-9 Development Sys- 
tem. This makes sense, too, because >/ni 1 
is the only statement in the listing that 
would cause an Error 221 (module not 
found). All of the other statements would 
cause Error 2 1 6 (file not found) if you were 
missing an executable program such as 
tmode or di spl ay. All these little nuances 
can drive you batty sometimes. In short, 
you can fix the problem by either installing 
ni ldrv.drandni 1 .dd in your 0S9Boot file 
or by removing >/nil from the line that 
runs format. 



Missing Menus 

/ was recently going through 
my rainbow oh' disk library and 
found the source for locate. 
Wanting to use this enhancement to find./ 
entered the listings for gfx3 and doalert. I 
then loaded all three modules and packed 
them. The problem I'm finding is that 
doalert will not create the window with 
menus. I've tried all types of screens, com- 
pared the source code for 1 ocate, doal ert 
and gfx3. They all match the source as 
published in THE RAINBOW. The program 
just sits there after creating tiie arrow graph- 
ics cursor. I'm wondering if I missed a 
patch published at a later dale? 

John Gilbertson 
Portsmouth, Virginia 

Although it wasn't specifically men- 
tioned in the article, you need the windint 





module from the Multi-Vue disk in your 
0S9Boot tile in order for locate to work 
properly. This module replaces grfint in 
the standard 0S9Boot file and adds support 
for menu bars, the auto-follow mouse, etc. 
If you do not haveMulti-Vue, you can order 
it from Radio Shack Express Order at (800) 
321-3133. 



LCSD Pascal 

/ am the owner of a CoCo 2 
computer and have recently 
begun to study Pascal as imple- 
mented on the Apple computers we have at 
school. This has become a hassle. I recall 
seeing in your magazine some years ago an 
advertisement for a Pascal compiler for the 
CoCo 2. Do you have any information on 
software houses that would carry an im- 
plementation ofUCSD Pascal that I could 
use on a 64K CoCo 2 ? 

Donald Thomas 
Dresden. Ohio 

You are thinking of DEFT Pascal from 
DEFT Systems. Unfortunately this com 
pany is no longer in business and its prod- 
ucts are no longer available. The only other 
Pascal compiler that might be available is 
OS-9 Pascal, which follows the ISO stan- 
dard instead of the UCSD standard. You'll 
probably have to order 05-9 Pascal through 
Radio Shack Express Order. 




/;; addition to being OS9 Online SIGop. 
Greg Law enjoys programming on all types 
of computers and has worked on systems 
ranging from the CoCo to the Burroughs 
B6700 super mainframe. He lives in Louis- 
ville. Kentucky. 



Submitting Material 
To Rainbow 

Conlributions lo the rainbow are wel- 
come from everyone. We like to run a variety 
of programs that are useful, helpful and fun 
for other CoCo owners. 

WHAT TO WRITE: We are interested 
in what you want to tell our readers. We 
accept for consideration anything that is well- 
written and has a practical application for the 
Tandy Color Computer. If it interests you, it 
will probably interest lots of others. However, 
we vastly prefer articles with accompanying 
programs (hat can be entered and run. The 
more unique the idea, the more the appeal. We 
have a continuing need for short articles with 
short listings. These arc especially appealing 
to our many beginners. 

FORMAT: Program submissions must 
be on tape or disk, and it is best to make 
several saves, at least one of them in ASCII 
format. We're sorry, but we do not have time 
lo key in programs and debug our typing 
errors. All programs should be supported by 
some editorial commentary explaining how 
the program works. We also prefer that edito- 
rial copy be included in ASCII format on the 
tape or disk, using any of the word processors 
currently available for the Color Computer. 
Also, please include a double-spaced printout 
of your editorial material and program listing. 
Do not send text in all capital letters; use 
upper- and lowercase. 

COMPENSATION: We do pay for sub- 
missions, based on a number of criteria. Those 
wishing remuneration should so state when 
making submissions. 

For the benefit of Ihose wanting more de- 
tailed information on making submissions, 
please send a self-addressed, stamped enve- 
lope (SASE) to: -Submission Guidelines, the 
rainbow. The FalSOfl Building. P.O. Box 385. 
Prospect. KY 40059. Wc will send you com- 
pichciisivc guidelines. 

Please do not submit material currently 
submitted to another publication. 



The C Compiler for the CoCo has finally arrived... 

CoCo-C 

CoCo-C is a complete RSDOS based C development package for the Color Computer not 
requiring the OS-9 Operating System. CoCo-C consists of five main programs: a Text 
Editor, a C Compiler, an Assembler, and a Library Linker which are all controlled by the 
CoCo-C Command Coordinator. 

Text Editor 

A full featured screen oriented line editor for the CoCo3 developed by Bob van der 
Poel. Powerful editing and cursor commands with auto-indent and user defined 
macros make this a great editor for writing C or assembly language programs. A less 
sophisticated version for the CoCo 2 is also available. 

C Compiler 

The CoCo-C Compiler is a full featured K&R style integer compiler specifically 
designed for RSDOS based systems. It has assembly language output, position 
independent code and can output ROM-able code if desired. Added features allow you 
to mix C, assembly language and B_A£IC_ commands within your program! 

Assembler 

This symbolic assembler is capable of assembling files as large as available disk 
space. It supports a Motorola style syntax and outputs standard binary files ready for 
LOADM and EXEC. Options include list file output and generation of symbol fable file. 

Library/Linker 

The Library Linker is a utility which links the CoCo-C's 90+ function library with your 
compiled binary file, creating a stand alone executable ML file. 

Command Coordinator 

The Command Coordinator is CoCo-C's main program. Its user friendly menu driven 
screen smoothly switches back and forth between the Editor, Compiler, Assembler and 
Linker. 

The CoCo-C Compiler package includes BOTH CoCo 2 and CoCo 3 versions 
of ALL the programs listed above plus MORE ! Compatible w/B&B RGBDOS 

Never before has there been an offer like this for the Color Computer ! 

Requires 64K COCO 2 or 1 28K COCO 3 Send check or money order to: 

introductory Offer Infinitum Technology 

Only $59.95 P.O. Box 356 

V ww ww Saddle River, N.J. 07458 

Plus $4.00 shipping & handling 914-356-7688 
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PRINTER 
SOFTWARE 




Call for Printer Software 

The CoCo is a great little com- 
puter even without all the add-ons. 



But let's face it, the add-ons (disk 
drives, modems, etc.) make com- 
puting life even easier. The printer 
has long been one of the first periph- 
eral devices we'll recommend to 
users wanting to upgrade their sys- 
tems. And with good reason: View- 
ing screen output is OK, so long as 
someone else doesn't need a copy. 
If you've written a program for us- 
ing a printer with the CoCo, perhaps 
someone else could use it, too. 

We are now making tentative 
plans for the May 1993 issue of THE 
RAINBOW and are accepting pro- 
gram submissions appropriate for 
that issue's theme, Printers. We are 



also interested in general -interest 
articles discussing how printers can 
be used with the CoCo. All submis- 
sions must be received by us no later 
than January 29, 1992, and must 
follow our standard submission 
guidelines (see Page 15 for details 
and address). 

We'd also like to see any other 
programs or articles you have writ- 
ten (submitted material must be the 
original work of the submitting party, 
or submitted with written permis- 
sion). All submissions are evaluated 
and considered for publication in 
future issues. 



Covering 
the Complete 
Line of Popular 
Tandy 
MS-DOS 
and Portable 
Computers 



Call (502) 228-4492 
for information; 
for VISA/MC/AMEX 
orders call (800) 847-0309 
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BACK ISSUES 

Haw you explored 



great way to 



Yes! They're still available! 
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There is a $5 charge 
$1 charge for each ad- 
r\ sent by U.S. Mail, 
a post office box or to 
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A WORLD OF INFO 
AT A BARGAIN PRICE 

All hack, issues sell lot the single issue eovei 
price, hi addition, there is a S3. 50 charge for 
the first issue, plus 50 cents for each addi 
tional issue forposlajte and liaridiinjiii'wnt by 



RAINBOW INDEX 

A complete index for. July 1 981 through June 1 984, is printed in 
the July 1 984 issue. Separate copies are available for $2.50 plus 50c 
handling. Indexes for subsequent years are published annually in the 
July issues of the rainbow. 

TOTAL 

KY RESIDENTS ADD 6% 

CANADIAN RESIDENTS ADD 7% GST 

U.S. MAIL CHARGE 

SHIPPING & HANDLING 

UPS. CHARGE 

TOTAL AMOUNT 

ENCLOSED _ 
Article Reprints 

In instances where a given issue is now out ol print and not available lor 
purchase, we do provide photocopies of specific articles. The cost for this 
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Code from cover 

pri nter . code. For Sendcode to work prop- 
erly, all .code files must be in the /dd/SYS 
directory on the system. A sample .code 
file for the DMP-132 printer is shown in 
Figure 1. If you have a DMP-132. go ahead 
and create this file by using the OS-9 build 
command or a text editor, then you can start 
using Sendcode right away. If you need or 
want lo devise a different file, read on. 



/p 


bell 7 


LineFeed 10 


Formfeed 12 


CR 13 


Undrl inON o 15 


UndrlinOFF 14 


GraphixON 18 


GraphixOFF 30 


WordProc 20 


ReverseLF 27 10 


1 8LF 27 26 


1_2LF 27 28 


1_12LF 27 50 


1 36LF 27 51 


3 4LF 27 56 


1_144LF 27 57 


1_144LFS 1 27 64 


ElongatON 2/ 14 


ElongatOFF 27 15 


NLQprop 27 17 


NLQpica 27 18 


Pica 27 19 


Compressed 27 20 


CRonly 27 21 


CRandLF 27 22 


El ice 27 23 


BoldON 27 31 


BoldOFF 27 32 


IBMmode 27 33 


PageLength 1 27 52 


!BMSet2 27 58 


TandySet 27 59 


ItalicsON 27 66 1 


ItalicsOFF 27 66 


PerfSkip 1 27 72 


MicroFont 27 77 


LeftMargin 1 27 81 


RghtMargin 1 27 82 


SuperON 27 83 


SubON 27 83 1 


BiDirect 27 85 


UniDirect 27 85 1 


SuperOFF 27 88 


SubOFF 27 88 


Country 1 27 89 


Repeat 2 28 


Figure 1: DMP-132 pri nter. code File 



The first line of the .code file specifies 
the device or path where you want the 
control codes sent. Typically this would be 
/p for your printer. You can also specify 
stdoutorstderr if you want the codes sent 
to the standard output or standard error path 
(more on this in a moment). 

Your command definitions appear on 
the succeeding lines. The first item that 
appears on each line is the command name 
you want to use. This command name can 
be up to 1 characters in length and may use 
upper- and lowercase. However, remember 
that Sendcode' s command search is not 
case-sensitive — no distinction is made 
between upper- and lowercase letters. 

The first number following the com- 
mand name on each line tells Sendcode how 
many user-supplied codes are required for 
that command. Sendcode allows up to three 
user-provided codes. We'll examine this 
feature more closely in a moment. 

The remaining numbers on each line are 
the control codes to be sent for the com- 
mand name on that line. These numbers are 
in decimal format and can range from to 
255. Sendcode supports up to five control- 
code values for each command you define. 

The last character in each line must be a 
carriage return (FNTER). When building a 
.code file, remember that each line can 
contain only one command. You can define 
as many commands as you like, but each 



command, along with its control codes, 
must be on its own line. 

When you execute Sendcode, you can 
enter up to 30 defined command names on 
the command line. In other words, you can 
ask Sendcode to send codes for up to 30 
separate functions in one OS-9 command 
line. This should he more than enough for 
most uses. 

Now let's take a look at user-supplied 
codes. There are probably a few control 
codes you won't want to predefine. For 
example, many printers allow you to set the 
left margin at any characler posilion. Tl 
would be horrible lo have to define 80 
different command names so you could set 
the margin at any position. Instead, 
Sendcode allows you to send i he character 
position as a parameter on the command 
line. To do this, you enter the defined 
command name along with the value you 
want to send, enclosing the value in paren- 
thesis. For example, if the command 
LeftMargin is defined in pri nter. code 
and specifies a user-supplied codes value of 
1 (see Figure I ). you would enter 

sendcode LeftMargin(lO) 

to set the left margin to 1 Ocharacter spaces. 
Note that there are no spaces between any 
of the characters in the command name/ 
user values entered on the command line. 

Since user-supplied values usually trail 
a defined sequence of control codes, they 
are sent after any predefined codes are sent. 
The codes are sent starting with the left- 
most number and ending with the right- 
most number. For example, when you enter 
the above command line, Sendcode first 
finds the command definition in the .code 
file. It then determines that one user-sup- 
plied code is expected on the OS-9 com- 
mand line. (In this case, the user-supplied 
value is 10.) Then Sendcode sends any 
codes specified for the command in the 
.code file (in this case, 27 followed by 81). 
After the defined codes are sent, Sendcode 
sends the user-supplied value of 10. 

Up to three user-supplied codes may be 
defined for each command name you spec- 
ify in the .code file. When executing a 
command that requires two or three user 
supplied codes, separate the values with 
dashes (-). The following is an example: 

sendcode Repeat(10-32) 

Again, there can be no spaces between any 
of the characters of the command name. 
(The reason I wrote Sendcode to use dashes 
instead of commas or spaces is to simplify 
the program. OS-9 parses each parameter 
on the command line by looking for spaces 
and commas. By using dashes, OS-9 does 
not split the command line into several 
parameters.) 

As I mentioned before, the default .code 
file used by Sendcode is pri nter. code. If 
you want, you can change the name pri nter 
in the source code before compiling the 
program. (It is defined in the Global Vari- 
ables section near the beginning. Each 
character of the name you use must be in 
single quotes, then separated by a comma.) 
However, don't change the defined path 
and extension since Sendcode uses these 
strings as defaults elsewhere. 

Sendcode handles multiple devices eas- 
ily. Suppose you have two printers that use 
different control codes. Simply enter the 
definitions for the printer you use most in 
the pri nter. code file (the default). Then 
builda . codefilefortheotherprinter, using 
a filename that identifies that printer. To 
tell Sendcode to use the second . code file, 
enter the name of that file, preceded by a 



dash, as a parameter on the OS-9 command 
line. For example, if your second printer is 
a Star NX- 1000 and you name its .code file 
nxlOOO. code, you might enter 

sendcode nxlOOO UndrlnON 

to turn ils underlining feature on. This 
example assumes there is a file called 
nxlOOO. code in the /dd/SYS directory 
(remember, all . code files must be in this 
directory) and that an UndrlnON command 
has been defined in that file. 

By using ihe device names stdout and 
stde-r, you can also send control codes to 
the screen. Figure 2 shows a listing of a 
.code file that includes screen functions. 
Notice that the device specified on the first 
line is stdout. To use this file to ring the 
bell, you would enter 

sendcode -screen Bell 



stdout 
Home 1 
Cursor 2 2 
CursorOFF 5 32 
CursorON 5 33 
Bell 7 
EraseEOS 11 
CR 13 

^everseON 31 32 
leverseOFF 31 33 
UndrlnON 31 34 
UndrlnOFF 31 35 
BlinkON 31 36 
BlirkOFF 31 37 



Figure 2: Sample screen . code File 



Feel free to change the command defini- 
tions in screen .code lo support the func- 
tions you want. Users of OS-9 Level II 
should find this approach very useful for 
handling windowing functions. 

In case you forget the commands you 
defined in the .code file, enter a question 
mark (?) instead of a command definition. 
If you enter 

sendcode ? 

the definitions in the .code file are dis- 
played onscreen. This is handy for check- 
ing suspect . code files; if the information is 
displayed incorrectly, you have typed 
something incorrectly in the . code file. To 
list the command definitions for a different 
.code file, add the filename to the com- 
mand line, as in the following example: 

sendcoce -nxlOOO ? 

Sendcode has certainly made my com- 
puting more enjoyable and productive. I 
hope you find it to he a handy utility, too. 



Bruce Geren is a computer engineer for 
Motorola. He and his wife.Launa, have two 
children. Alan and Megan, and another 
child on the way. Bruce may he contacted at 
1586 W. Maggio Wax, Apt. 2113, Chan- 
dler. ,4Z 85224. Please include an SASE 
when requesting a reply. 
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The Listing: Sendcode. c 
/* sendcode. c 

* Copyright (c) 1990 by Bruce Geren 

*/ 

^include <stdio.h> 

/* global definitions */ 
^define TRUE 1 
^define FAISE 

/* type definitions */ 
typedef int void: 
typedef int boolean; 
typedef struct, codes I 
char command[12]: 
int numcodes, 

codel , 

code2. 

code3, 

ccde4, 

code5; 
int numextre . 

xcodel. 

xcode2. 

xcode3; 

] CODETYPE; 

/* forward referencing of local functions */ 
void strtolowert ) : 
void dumpcodes( ) : 

/* global variables */ 

char codefn[81] - [V , 'd' . 'd' . ' /' . ' s' , 'y ' . ' s' . ' / ' . 

'p'.'r'.'i'.'n'.'t'.'e'.'r'.'.'.'c'.'o^.'d'.'e'l: 
CODETYPE init_lc = ({ f \0' ) .0.0.0.0.0.0.0.0.0.01 ; 

char *usaoel = "\nsendcode [-peripheral] [code[code[. . .]]]": 

char *usage2 = " where code - contro"_code [;codel[-code?[-CDde3]])]\n" 

char *nonesent = "No codes sent due to error(s)": 

char *codefrmt - "%10s Jd %6 Sd Sd Sd Sd\n": 



int main(argc. argv) 
int argc; 
char *argv[]: 

{ 

int f irstparam - 1 : 

register int i: 

int cmnd_err; 

int *codeptr; 

boolean stdio - FAlSfc: 

char dev1cename[20]; 

char in_str[81]; 

char *chptr; 

FILE *fp: 

FILE "codefp: 

CODETYPE lcC30]: 

CODETYPE tc: 

/* display usage if no parameters */ 
if (argc — 1) I 
putslusagel ) ; 
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puts(usage2) : 


argvfi + firstparam]): 




exit(0): 


cmnd err - TRUE; 




argc-- : 


1 /* e'se -/ 
1 / * if > '/ 




/* check for change of code file name */ 


1 /* for */ 




if (*argv[l] — ■-■) ( 






strcpy(codefn ,"/dd/sys/") ; 


if (cmnd_err) { 




strcat(codefn.(argv[l]+l)); 


puts(nonesent); 




strcat(codefn .".code"): 


exit(0); 




firstparam = 2: 


} 




argc- - ; 
) 


/* send contro" codes to the device V 
if (Istdio) 




/" check for code file content listing request */ 


if ((codefp - fopen(dev1cename."w") ) == NULL) 




if (*argv[firstparam] — ■?•) | 


exi t(errno) ; 




putsfusagel > ; 






puts(usage?) ; 


/* for each command ... */ 




dumpcodes( ) ; 


for (i - 0; i < argc: i+<-) i 




exit<0): 
} 


/* send normal control code(s) */ 
codeptr - 41c[i].codel: 




/* create a list of commands from the parameter list */ 


while llc[l], numcodes--) 




for (i - 0; i < argc; i++) ( 


putc(*codeptr++, codefp); 




_Strass(&lc[i], &1n1t_lc. sizeot(COl)EIYFE)) ; 






strncpy(lc[i] .command, argv[i + firstparam], 11}; 


/* send user required control code(s) */ 




lc[i] .commandCll] - - \0': 


codeptr - SlcCi ].xcodel : 




if ((chptr - index(lc[i]. command. T)) !- NULL) 


while (lc[i ] .numexira - • ) 




*chptr - - \0' ; 


putc(*codeptr i i . codefp); 




strtolower(lc[i ] .command) ; 
( 


i /* for */ 

If (ferror(codefp)) 




/* open code file for command interpreting */ 


exi t(errno) ; 




if (<fp = fopen(codefn."r")) — NULL) 






exi t(errno) ; 


if (Istdio) 
fclose(fp) ; 




/* read device name and special case stcout ard stderr */ 


) /* main - sendcode */ 




fscanf(fp, "%s\n",devicename); 






strtolowcr(dcvicename) : 






if (strcmp(devicename,"stdout") -- 0) { 


/* convert entire string to lower case */ 




codefp = stdout; 


void strtolower(str) 




stdio = TRUE: 
j 


char *str; 




else if (strcmp(devicename, "stderr") — 0) { 


{ 

while (*str++ - tolower(*str)): 




codefp - stderr; 


} 




stdio - TRUE; 
) 


/* dump control codes to standard output for reference */ 




/* read each command with its control codes */ 


void dumpcodesi ) 




while <fgets(in_str,80,fp) !- NULL) I 


1 




tc.numcodes - sscanf ( in str . codefrmt. tc. command. Stc.numextra , 


int num_ codes; 




ttc.codel. &tc.code2. Stc.code3. 8tc.code4. &tc.code5) - 2; 


register int i : 
int *codeptr; 




strtol owe r ( tc .command ) ; 


FILE *fp: 




for (i - 0: i < argc; 1++> 


CODETYPE tc: 




if (strcmpltc. command. lc[i]. command) — 0) 


char device[21] ; 




_strass(&lc[i], &tc. sizeof (CODETYPE)): 


char in_str[81]; 




1 /* while */ 


Char tempfn[81] ; 
Char *chptr; 




if (ferror(fp)) 






exit(fp): 


if ((fp - fopen(code'n."r")> — NULL) 
exit(errno) ; 




/* look for any parameters that had */ 






/* no commands in the code file "1 


/* print usage and heading information */ 




cmnd_err = FALSE; 


f s ca nf (f p. "X20s\n". device); 




for ( i - 0; i < argc; i++) 


strcpyltempfn. codefn): 




if ( lcli J .numcodes — 0) ( 


chptr - rindexltempfn, ' . ' ) : 




printfC'Jnknown command --> $s\n",lc[1] .commard); 


*chptr - - \0' ; 




cmnd err = TRUE: 
J 


chptr - 1 + rindexi tempfn . '/' ) ; 

printf ("Control Codes for peripheral \"XsV\n". chptr) ; 

printrc'using device \"%s\"\n\n". device) ; 




if (cmnd err) ( 


putsC Cooes: rf Extra"); 




puts(nonesent); 


puts!" Command 12 3 4 5 Codes"); 




exit(0): 
} 


putst" | |---| --"): 

/* read and display each command with its cont-ol codes */ 




/* check for user provided codes */ 


while (fgetslin str.80.fp) !- MULL) [ 




cmnd err - FALSE; 


nunucodes = sscanflin str, codefrmt, tc. command. &tc.numextra. 




for (1 - 0; 1 < argc; 1++) { 


itc.codel. 8tc.code2, 4tc.code3, 8r.c.code4. Stc.code5) - ?; 




chptr - index(argv[i + firstparam]. '('); 


print f("X- 10s" , tc. command) : 
codeptr - itc.code". ; 




/* display error for unwanted user provided codes */ 






if <(lc[i].numextra — 0) && (chptr !- NULL)) { 


for (i - 5; i > 0; i--. nun codes ) 1 




printf ("Extra code(s) not required --> !Ss\n", 


if (num_ codes > 0) 




argvl i + firstparam]) : 


printfC %3d".*codeptr-+); 




cmnd err - TRUE; 
) 


else 

printfC "!; 




else if (lc[i ].numextra > 0) f 


) 




/* display error if missing user required codes */ 






if (chptr — NULL) ( 


printfC X4d\n", tc.nunextral : 




printf ("Missing user provided codes --> %s\r". 


) 




argv[i i firstparam]); 


if (ferror(fp); 




cmnd err - TRUE; 




) 


exit(errno) : 




/* else display error if wrong # of user required cedes */ 


fclose(fp) : 




else t 


1 




if (sscanf(chptr,"(%d -Xd-Xd". 






&lc[1].xcodel, &lc[i].xcodeZ, &lc[i].xccde3) 






!= lc[i ].numextra ) I 






prlntfCWrong number of user provided cedes --> Xs\n", 




/F!\ 




Sundoe Systems recently announced it 
has completed a project started over two 
years ago. Led by Jeff Steidl. author of 
Photon and GrajExpress 2.0. three pro- 
grammers combined their efforts to produce 
Contras. This 5 I2K CoCo 3 program fea- 
tures full-screen (320-by-225) hardware 
scrolling, smooth animation, background 
music, sound effects and arcade action. It 
also supports both one- and two-player 
modes. 

According to Glen Dahlgren of Sundog 
Systems. "Jeff proved that the CoCo can 
match — or surpass — any home game 
system. This is paramilitary combat at its 
best."" While we haven'l received our copy 
yet. you can bet this is one new CoCo 
product we'll have a blast with. Look for 
the upcoming review in THE RAINBOW. 
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Feature Program 

Clean the Screen 

by Steven Puis 




Once ihe routine is in memory, simply enter 
EXEC to clear the screen. Alternatively, 
NewCLS can be used by your other BASIC 
programs; just load and execute it by issu- 
ing the above commands under program 
control. 

You can change Ihe screen colors and 
patterns by entering POKE &H300A,x. where 
x is any value between and 255. before 
executing the program. Experiment and see 
what values work best for you. I hope you 
find NewCLS to be a useful little program. 



re you bored with the way 
Color BASIC'S CLS com- 
mand works'? Do you wish 
you had a more interesting way to clear the 
CoCo's 32-column screen? If, so, NewCLS 
could be the answer for you. 

NewCLS is a short utility that adds a I ittle 
spice to the way the CoCo clears its stan- 
dard screen. Best of all, NewCLS works on 
any CoCo with at least 16K of memory. 

To use this utility, enter the program 
shown in the listing and save it to tape or 
disk. This BASIC program stores in memory 
a machine-language routine that handles 
the actual work of clearing the screen. It 
then saves this routine lo disk. (Readers 
with tape-based CoCo systems should 
change SAVEM in Line 10 to CSAVEM. Also 
make sure you press the Record and Play 
buttons on the tape recorder before you run 
the BASIC program.) 

To execute the machine-language rou- 
tine created by NewCLS, you must first load 
it into memory. To do this, enter CLEAR 
100.&H3000 followed by L0ADM"NEWCLS". 
(Tape users should enter CLOADM"NEWCLS".» 



Steven Puis is currently a junior in high 
school. Since he received his first CoCo six 
years ago, he has enjoyed writing pro- 
grams for it. Steven hopes to make a career 
of computer programming. 
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The Listing: NEWCLS 




1 "NEW CLS 


2 'BY STEVEN PULS 


3 'COPYRIGHT (C) 1992 


4 'BY FALSOFT, INC. 


5 'RAINBOW MAGAZINE 


9 CLEAR 100.&H3000:GOTO30 


10 SAVEM"NEWCLS",&H3000,&H3029.& 


H3000 


20 END 


30 FORADD-&H3000 TO&H3029: READIN 


F$:POKEADD.VAL("&H"+INF$):NEXT:G 


0T0 10 


40 DATA 8E.4,0,10,8E,0.0.A6,84.8 


1. 20, 27. 6. 80. 1.A7. 81. 31. 2 1,30,1. 


8C. 6. 0.26. ED, 10. 8C. 0.0. 27, 9. 10. 8 


E,0,0,8E.4.0,20,DE,39 
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2 years In the maVso^. 

A cast of 3 all-star pro^ravcwwK^. 

THE gains. Here AVasX... 

Once upon a time, Sundog Systems announced a new 512k game called The 
Contras. It took two years and three programmers to complete this, the most 
ambitious game ever created for the CoCo-3. Jeff Steidl, accomplished author of 
Photon and GrafExpress 2.0, led the effort to produce this technological marvel. In 
doing so, he proved that the CoCo can match -or surpass- any home game system. 

The Contras features a two-player cooperative mode, 512k filled with incred- 
ible graphics, super-smooth animation and scrolling, an outstanding background 
music score, sizzling sound effects, and lightning-fast arcade action. 

This is paramilitary combat at its best. Play alone or with a friend as you take 
on the evil alien invaders. Blow away the enemy while travelling thru multiple 
levels and powering up with ever more destructive weapons. The Contras will keep 
you playing for hours; it is quite possibly the best CoCo game ever! Requires 512k 
CoCo-3, disk drive, & joystick. Aam m. aiK 

$34.95 

Super §undog Sale! 

For this holiday season, Sundog is cutting prices on even our most 
popular products. Give more to your favorite CoCo gamer for less! You 
must mention this ad when ordering to get these very special prices! 
See our full-page ad elsewhere in this issue for prices & shipping info. 



10% off 2 or more 10% off 



GrafExpress 2.0 
Photon 

Kyum-Gai (either ve 

Zenix 

Crystal City 
Sinistaar 
Quest for Thelda 



War Monger 
Soundtrax 
Warrior King 
Quest/Starlord 
All hint books 

systems <7 



50% off 

Hall/King 1,2, or 3 
Paladin's Legacy 
Kung-Fu Dude 
Champion 
Dragon Blade 
White Fire/Eternity 
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We.appreciate your mentioning the rainbow when you contact these advertisers. 




Call Kim Lewis 
Eastern Sales Director 
(502)228-4492 



Call Ira Barsky 
Western Sales Director 
(312)587-1818 



The Falsott Building 

9509 U.S. Highway 42, P.O. Box 385, Prospect. KY 40059 

(502)228-4492 • FAX (502) 228-5121 




BopQe & B*jrl)e 



P.O. Box 733 Maple Valley, WA 98038 
U.S. ORDER DESK: (800) 237-2409 
INT'L & TECHNICAL: (206) 432-1814 

Boost your CoCo with these fine Burke & Burke products: 

THEXDER.OS9 - NEW FOR OS9. Use your TA ND F™ $29. 95 

Thexder cartridge under OS9. By Alan DeKok. 

The 6309 Book -- 6309 programming book by Chris Burke. $24.95 

Includes XSM assembler, disassembler, and DEBUG patches 
for OS9 Level 2. 

PowerBoost - 2 MHz enhanced HD63B09E processor w/ OS9 $29.95 

kernel and I/O patches (10% - 50% speed improvement). Note: 
soldering required for installation. 

WORLD CLASS CHESS* - Use Cyrus Chess cartridge w/L2 OS9 $29.95 

FILE SYSTEM REPACK 1.1- Faster OS9 disk defragmenter $29.95 

FILE RECOVERY SYSTEM - Helps recover files from OS9 disks. $24.95 

R.S.B.*- Disk BASIC for Level 2 (BASIC ROM required). $39.95 

EZGEN1.10- EVEN FASTER! Handy & powerful OS9 bootfile editor $19.95 

WILD & MV - Use wildcards with OS9 commands; movefiles $19.95 

PERTASCII - Challenging OS9 game to make words from a list of $1 9.95 

random letters. Play against the computer, multi-user, or BBS. 

ZCLOCK - Continuous time / date display on Level 2 screen $9.95 

COCO XT -Use PC MFM or RLL hard drives with CoCo! OS9 S/W $69.95 
included (add $30 for COCO XT-RTC version with real-time clock; add 
$20 for XT-ROM harddisk auto-boot ROM). 

DAGGORPATCH -Transfers TANDY™ Dungeons ofDaggorath $9.95 

cartridge to DISK BASIC. Adds disk I/O, screen dump, repeat. 

WA RESIDENTS ADD 8.2% SALES TAX. MasterCard & VISA accepted. U.S. COD's add 

S3.75. Min. U.S. shipping S-1.00. Min. to Canada $5.00. Please allow 2 weeks for delivery. 

Overnight or 2nd- day available for in-stock items. Software upgrades $5.00 each w/receipl. 

including U.S. shipping. 

Call or write for a free catalog of more exciting Color Computer products! 











I 




V 



Energy is everything: your home world depends on it However, 
someone or something is slowly siphoning it away. As your world's 
champion, you must climb into the experimental Power Tank to 
challenge this nemesis and his minions. Your Key lies with the ability 
lo teleport solid mass. Use this to manipulate and explore the endless 
stronghold ot the enemy, and to exploit the free-tloatlng DUPES 
(Dense Units ot photon Energy) to destroy the menacing Plasma 
Droids. Be cautious, though; those DUPES can be deadly, too! 
Photon, a fantastic new arcade game for your Coco3. contains spec- 
tacular 320x200 resolution, 16 color graphics, ultra-smooth 60 Hz 
animation, and loads ot real-time music and sound effects. It will 
send your mind racing over endless possibilities, requiring quick 
decisions and reactions, Quite simply. Photon is incredibly addictive; 
it will deliver hours ot excitement, Will you become your world's 
greatest hero, or just another 
energy slave? Req. 128K CoCo 3 
and disk drive. 



GrafExpress 2.0 is a complete graphics and music programming en- 
vironment From the beginner lo the accomplished prolessi 
can use GtafExpress to create lightning last arcade games graphic 
applications and utilities, and windowing multimedia aemonstra- 
tions! The GrafExpiess packaye includes two incredible 
GrafExpress 16 works on all monitor types and offers support in 12 
graphic resolutions (from 128x192 to 320x225) GrafExpress 256 ot- 
ters 6 resoutions (from 128x192 to 160x225 on a composite monitor! 
in an astounding 256 colors 1 Ever see a CoCo do that betore? Both 
systems include standard graphics commands (CIRCLE. I 
that blow away the competition. For example, the BOX command 
peaks oui at over 2 MegaPixels/secona: that's 300 times taster than 
BASIC! 255 separate sprites ol up to 100x100 pixels each are sup- 
ported with window clipping and high-res pixel level collision check- 
ing The 8-octave/4-voice music synthesizer has independent 
envelope, waveform, and volume controls, a 7 + KHz sampling rate, 
and much more. Other features include text/graphics mixing, dif- 
ferent font sizes, fast window copying and scrolling, picture 
save/load, easy Implementation from both BASIC and assembly 
language, multiple screen animation, and support for 128K/512K. 
double speed, and the high-res joystick interface. The package also 
contains support programs that are worth the purchase price of 
GrafExpress alone! These include an introductory demo, a picture 
editor, a waveform edito', and an art program that supports 256 col- 
ors! GralExpress also comes with a 50 page manual that fully ex- 
plains all ol its incredible features. If you do any graphics program- 
ming or simply want to see what 
your little CoCo is capable of. 
GrafExpress is a must! Req 128K 
CoCo 3 and disk drive. 
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The world is in unrest. Power-hungry villains and evil warlords are 
readying their forces. It falls to you to lead your people against these 
armies, and onlv your best strategic plans can save the day Fight 
the good fight in any era or locale. Play a simple game of capture the 
flag armed with water balloons, or climb into the cockpit ot a 100 foot 
high armored warrier. Explore the deepest dungeons, defend your 
galaxy, or create your own scenarios with this incredible war game 
construction set/simulator. Your imagination Is your only limit You 
will deploy your forces with total control over hostile terrain while you 
scroll a graphic bird's-eye window over an immense world War 
Monger has terrific 320x200 resolution, 16 color graphics and 
eludes a tile editor to create or edit your own. Play against the com- 
puter, battle with another player, or simply watch the computer plot 
against itself. The enemy is everywhere. Are you ready to take on I 
challenge as the War Monger? Req. 
128K CoCo 3 and disk drive. ■« H f T 




An immensely popular 128K CoCo 3 arcade/adven- 
ture. Over 500 screens of fast fantasy action and 
puzzle solving. Great graphics and sound effects 
$34.95 Hmfoook only $4.95. 



A VAlU* BtE 



A 512K two player futuristic combat arcade game. 
Full screen 320x225 hardware scrolling and 
smooth animation. Back-grnund music score and 
sound effects! 512K Coco3 only 34.95. 
Shipoing soon! 



THE game of '91! Ultra-fast space ac 
with hardware scrolling on a 128K CoCo 3 Wild 
sound effects and over 30 MegaBytes of amazing 
graphics! 34,95. 



Lightning fast arcade game for the I2SH 
Terrific 320x225 graphics back-ground music 
score and sound effects, and out-ot-sigh: 
play. $29.95. 
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Warrior King, 

CoCo 3 


$29.95 


In Quest of the Star Lord 

CoCo 3 
Hint Sheet 


$34.95 
$ 3.95 


Hall of the King 1, 2 or 3 

CoCo 1 - 3 


$29.95 ea. 


Hall of the King Trilogy 


$74 95 


White Fire of Eternity 

CoCo 1 - 3 


$19.95 


Dragon Blade 

CoCol -3 


$19.95 


Champion 

CoCol -3 


$19.95 


Paladin's Legacy 

CoCo 1 - 3 


$24.95 






Everyone loves this 512K arcade game 3 disks 
packed with spectacular graphics and eerie 
background digital sound etiects 51 2K CoCo 3 on- 
ly. $34.95. 



The best selling 128K CoCo 3 martial arts arcade 
came. Now available in both RS-DOS and OS-9 ver- 
sions Play the incredible combat experience 
you've been missing under the operating system of 
your choice! $29.95. 



A polyphonic digital sound sequencing system tor 
your 128K/512K CoCo 3 with a user-frier: 
and-ciick graphic editor. Create music SCO 
your own sounds or from the many we provid 
$34.95. 

Sample instrument disks: 6 sides of sampled 
sounds/instruments. Only $12.95 each or $29.95 
for all three. 



Visa. Masletcard. Check. Money Order, and COO 
(USA only, pleasel accepted. Ail foreign orders 
must be sent in US currencv Money Orcers Include 
$2.50 lor shipping in USA and Canada. $5.00 
Foresign. $3 OC extra for COD orders PA residents 
add b% sales tax. Dealer inquiries welcome. 
Authors, were looking lor new software 1 
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P.O. Box 766 • Manassas, VA 221 1 1 
703/330-8989 



